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EVALUATION 


This  report  documents  the  results  of  an  effort  to  develop  the  engineering 
tools  to  support  the  electromagnetic  (EM)  fields  analysis  program  for  Air 
Force  use  durir^)  the  design,  development,  fabrication,  installation,  main- 
tenance and  modification  of  electrically  large  systems.  In  terms  of  wave- 
lengths, an  electrically  large  system  is  one  which  has  an  area  of  at  least 
10  square  wavelengths  for  a plane  surface,  or  one  which  has  a linear 
dimension  of  at  least  200  wavelengths  for  a single  dimension  system. 

The  code  that  was  developed  uses  the  method  of  moments  (MOM)  technique 
to  solve  Maxwell's  equations  for  an  arbitrary  geometry  of  radiators  and 
scatterers.  However,  it  has  two  major  advantages  over  other  MOM  codes. 

First,  it  enables  the  user  to  specify  a system  with  up  to  2000  unknowns, 
instead  of  200  to  300.  Out-of-core  manipulation  and  banded  matrix  iteration 
(BMI)  are  the  major  features  of  this  code  which  make  the  solution  of  such 
large  systems  of  equations  practical. 

Secondly,  the  input  language  for  the  code,  as  well  as  the  architecture 
and  structure  of  the  code  itself,  are  designed  to  permit  an  organized  growth 
of  the  capability  of  the  code.  The  basic  function  of  the  code  is  the  storage 
and  manipulation  of  large  quantities  of  data.  These  capabilities  have  been 
utilized  to  solve  the  EM  fields  analysis  equations  in  either  of  two  ways. 

It  is  the  intent  of  the  code  design  to  allow  the  incorporation  of  other 
solution  techniques,  such  as  Bodies  of  Revolution  and  the  Geometrical  Theory 
of  Diffraction  (GTD) . 

Therefore,  the  results  of  this  effort  have  both  short-range  and  long- 
term advantages  for  the  Air  Force.  The  Air  Force  now  has  the  capability  to 
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model  and  characterize  large  systems  in  terms  of  far-field  radiation  patterns 
and  scattering  cross-section,  the  coupling  between  large  numbers  of 
collocated  antennas  and  the  input  impedance  of  antennas  in  large  radiating 
systems.  The  long-term  advantage  is  the  inherent  growth  potential  and  Air 
Force  wide  commonality  available  to  the  users  of  this  code. 

The  work  accomplishes  the  objective  of  TPO-1,  Command,  Control, 
Communications  Survivability  in  that  it  provides  an  interference  analysis 
and  prediction  tool  for  the  Air  Force  in  Intrasystem  Analysis  Program  (IAP). 


A. 


INTRODUCTION 


This  manual  contains  instructions  for  using  the  GEMACS  (General 
Electromagnetic  Model  for  the  Analysis  of  Complex  Systems)  computer 
program.  The  program  is  a highly  user-oriented  general  purpose  code 
designed  for  gradual  incorporation  of  a variety  of  techniques  for 
electromagnetic  analysis  of  complex  systems.  The  user  is  assumed  to  be 
an  experienced  electromagnetics  analyst  with  a fair  understanding  of 
applied  linear  algebra.  The  current  version  (release  I)  of  the  code 
supports  all  of  the  functions  necessary  for  using  one  thin-wire  MOM 
(Method  of  Moments)  formalism.  The  GEMACS  code  uses  a high  level  language 
and  provides  flexibility  of  control  over  the  computational  sequence  by 
the  user.  Error  messages,  debug  and  trace  options,  and  other  features 
are  included  to  aid  the  user  in  identifying  sources  of  fatal  errors. 

The  MOM  formalism  used  in  the  present  code  includes  the  thin-wire 
Pocklington  integral  equation,  pulse  plus  sine  plus  cosine  expansion 
functions,  point  matching,  and  a charge  redistribution  scheme  at  multiple 
wire  junctions.  This  is  the  same  formalism  as  used  in  the  AMP  (Antenna 
Modeling  Program)  code  1 . The  GEMACS  code  includes  most  of  the  engineer- 
ing features  of  the  AMP  code  such  as  loading  and  ground  plane  effects. 
However,  the  range  of  applicability  of  the  moments  technique  is  extended 
to  objects  of  larger  electrical  size  in  the  GEMACS  code  by  using  a new 
solution  method  for  linear  simultaneous  equations  called  BMI  (Banded 
Matrix  Iteration).  The  user  must  have  a limited  understanding  of  the 
solution  method  to  insure  convergence  and  reasonable  efficiency.  The 
method  is  documented  in  volume  il  of  this  report  and  in  references  noted 
therein. 

The  thin-wire  MOM  can  be  used  to  solve  general  physical  problems 
involving  actual  wires,  wire  grid  models  of  conducting  surfaces,  or  a 
combination  of  these.  Wire  grid  modeling  is  not  yet  a highly  defined 


^he  Antenna  Modeling  Program  is  a general-purpose  thin  wire  code  developed 
and  documented  by  MB  Associates  in  "Antenna  Modeling  Program-Engineering 
Manual,"  July  1972,  AD-A025890. 
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process.  Modeling  guidelines  developed  in  recent  studies  are  discussed 
in  volume  II.  The  user  must  reduce  the  physical  problem  to  a thin  wire 
model.  The  GEMACS  code  includes  a highly  flexible  geometry  processor  to 
aid  in  this  task.  The  user  specifies  the  frequency,  additional  features 
such  as  loading  or  the  presence  of  a ground  plane,  and  the  excitation. 
Excitation  options  currently  include  plane  or  spherical  waves,  voltage 
sources  for  antennas,  or  arbitrary  excitations  on  specified  individual 
wire  segments.  Load  options  currently  include  fixed  (as  a function  of 
frequency)  lumped  loads,  series  or  parallel  RLC  networks,  and  finite 
segment  conductivity. 

The  code  generates  a set  of  linear  simultaneous  equations  from  the 
information  provided.  The  user  controls  the  process  by  which  the  equa- 
tions are  solved.  If  the  total  number  of  wire  segments  in  the  model  is 
sufficiently  small,  standard  solution  methods  are  applicable.  Solution 
by  full  matrix  triangular  decomposition  is  one  of  the  least  expensive 
general  methods,  and  is  supported  by  GEMACS.  For  large  problems,  this 
method  is  too  expensive,  and  the  BMI  solution  method  should  be  specified 
by  the  user.  This  method  is  considerably  less  expensive  provided  the 
user  carefully  chooses  the  segment  numbering  and  matrix  bandwidth  accord- 
ing to  the  guidelines  discussed  in  volume  II. 

The  user  specifies  other  quantities  to  be  computed  from  the  wire 
currents,  such  as  impedances,  coupling  parameters,  near  fields  or  far 
fields.  These  are  computed  from  currents  regardless  of  the  solution 
process  specified.  Regardless  of  the  solution  technique  exercised,  it 
is  emphasized  that  the  user  must  be  familiar  with  general  results  from 
the  literature  to  insure  that  the  computed  solution  using  the  model  for 
the  system  is  of  sufficient  accuracy  for  the  purposes  intended.  For 
example,  the  far  fields  can  be  computed  from  approximate  currents  obtained 
by  specifying  a weak  convergence  criterion  when  using  the  BMI  solution 
method.  This  will  allow  the  reduction  of  the  required  computer  resources 
when  large  systems  are  being  analyzed. 

The  present  code  generates  an  interaction  matrix  from  the  thin-wire 
EFIE  (Electric  Field  Integral  Equation)  discussed  in  the  GEMACS  Engineer- 
ing Manual.  The  electric  current  is  represented  by  a sine,  cosine,  and 
pulse  expansion  function  with  redistribution  at  junctions  based  on  the 
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fractional  length  of  each  segment  with  respect  to  the  total  length  of 
all  segments  connected  at  the  junction.  The  interactions  matrix  may  be 
modified  by  loading  the  individual  wire  segments  of  the  model  using 
resistance,  capacitance,  and  inductance  in  parallel  or  series  configura- 
tions. 

Associated  with  the  geometric  structure  and  interaction  matrix  is  an 
excitation  matrix  which  contains  the  total  tangential  electric  field 
present  at  the  midpoint  of  each  segment.  The  electric  field  may  be 
caused  by  as  many  combinations  of  three  types  of  sources  as  desired. 

These  types  are  plane  and  spherical  wave  sources  for  scattering  problems 
and  voltage  sources  for  antenna  problems.  In  addition,  the  user  may 
assign  an  arbitrary  value  to  the  excitation  of  any  wire  segment  to  force 
the  desired  boundary  condition. 

With  the  interaction  matrix  denoted  by  |z|  and  the  excitation 
matrix  denoted  by  |eJ  , the  primary  function  of  the  code  is  to  generate 
and  solve  the  system  of  equations  for  the  electric  current  [l]. 


This  may  be  done  using  direct  full  matrix  decomposition  in  which  |Z|  is 
decomposed  into  lower  and  upper  triangular  matrices  [ ZL  j and  [ ZU  [ . Forward 
elimination  and  back  substitution  are  then  performed  as  indicated  below. 


[Z  ] [I  ] = [E  ] 

[ZL]  [ZU]  [I  ] = [E  ] 

[ZL]  [I1  ] = [E  ] 

[ZU]  [I  ]=[!'] 

where,  since  j ZL | and  [ ZU j are  triangular,  the  actual  inverse  is  not 
requ i red . 

For  very  large  problems,  the  direct  solution  method  may  be  pro- 
hibitive due  to  the  large  amount  of  time  required  and  the  possible 
roundoff  errors.  In  this  case,  the  BMI  (Banded  Matrix  Iteration) 
technique  is  available.  In  this  method,  [z|  is  partitioned  (not  decom 


posed)  into  lower  and  upper  triangular  matrices  ( | LZ  | and  | UZ ] ) and  a 
central  or  banded  matrix  [BZ]  . This  is  illustrated  graphically  below. 


where  LZ',  BZ',  UZ'  are  the  nonzero  elements  of  LZ,  BZ,  and  UZ.  In  this 
notation,  the  problem  to  be  solved  becomes: 


The  banded  portion  of  interaction  matrix  [ BZ J should  contain  the 
dominant  interactions  while  those  contained  in  ( LZ j and  ( UZ  | may  be 
viewed  as  perturbations  in  a properly  posed  problem.  In  this  case,  the 
BM I technique  involves  appending  subscripts  to  the  [I]  vector  and  only 
solving  the  banded  portion  of  the  interaction  matrix. 


where  the  right-hand  side  at 


the  n 


th 


is  given  by: 


RHS 

s 

E 

- (|lz  1 + luzl) 

1 

n 

1 J 1 1 

n 

The  starting  value  for  |l]  or  [ I ] is  zero  unless  preset  by  the  user. 
There  is  very  little  if  any  advantage  to  presetting  jl  j.  Since  [ BZ ] is 
usually  much  smaller  than  |z|,  the  time  to  perform  lower/upper  decom- 
position is  reduced  considerably  and  the  system  to  be  solved  becomes: 


n 


- 


where  [BZL]  and  [BZllJ  are  the  lower  and  upper  triangular  matrices 
obtained  by  decomposing  [bz]  . The  solution  for  [l]n  is  obtained  exactly 
as  for  the  full  matrix  decomposition.  When  using  BMI , the  user  must 
provide  the  convergence  measure  and  value  to  be  used  to  stop  the  iter- 
ative procedure.  Three  criteria  or  measures  are  available,  the  BCRE 
(Boundary  Condition  Relative  Error),  the  IRE  (Iterative  Relative  Error), 
and  the  PRE  (Predicted  Relative  Error).  The  BCRE  is  a measure  of 
how  well  the  solution  matches  the  boundary  condition.  Mathematically: 


BCRE 


ICO  - [2]  P], 

I [El  | 


While  this  form  has  great  engineering  appeal,  it  is  mathematically  not 
recommended  since  the  system  of  equations  may  be  ill-conditioned  near 
resonances,  and  there  is,  by  definition,  a large  variance  in  the  elements 
of  [l]  which  will  result  in  a small  BCRE. 

The  second  criterion  is  the  IRE.  This  is  defined  mathematical ly  as: 

It0„  - ML.,  I 


IRE 


and  can  be  seen  to  be  the  relative  change  between  successive  approxima- 
tions to  the  solution.  For  slowly  converging  problems,  this  criterion 
may  cause  premature  termination  of  the  iterative  procedure. 

Finally,  the  PRE  may  be  used.  This  quantity  is  determined  by  using 
an  exponential  fit  to  the  two  previous  values  for  the  IRE  and  has  been 
shown  to  be  a good  approximation  to  the  ARE  (Actual  Relative  Error) 
after  four  iterations.  The  ARE  is  defined  as: 


ARE 


tq  - mi 

IMI 


where  flj  is  the  exact  solution.  Since  the  exact  solution  is  not  avail- 
able, the  PRE  is  the  recommended  criterion.  (See  the  GEMACS  Engineering 
Manual,  section  C.3  for  a discussion  of  the  PRE.) 


5 


The  value  of  the  convergence  criteria  depends  largely  on  the  output 
desired.  If  input  impedance  or  near  field  parameters  are  desired,  a I 
percent  value  is  not  inappropriate;  however,  if  normalized  far-field 
patterns  are  desired,  a 10  to  50  percent  value  may  be  sufficient. 

Once  the  solution  has  been  obtained,  the  input  impedance  of  each 
voltage  driven  element  (i.e..  Antenna  Feed  Point)  is  output  to  the 

V 

user.  These  are  computed  simply  as  = -p-  since  a delta  gap  model 

a 

is  used  for  antenna  sources.  The  currents  may  be  used  as  inputs  to  the 
field  computation  routines  to  obtain  the  near-  and/or  far-electric  field 
patterns,  and  the  coupling  between  pairs  of  antennas. 

There  are  inherent  limitations  to  the  solution  techniques  available. 
The  user  who  is  not  familiar  with  these  techniques  is  advised  to  consult 
the  engineering  manual  and  its  references  in  order  to  not  waste  valuable 
time  and  computer  resources  working  an  ill-posed  problem. 
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B.  COMPUTATIONAL  APPROACH 


The  basic  approach  in  the  design  of  the  GEMACS  code  is  to  permit 
the  user  to  generate  or  define  data  sets  and  then  to  perform  operations 
on  the  data  contained  in  the  data  sets.  The  data  sets  are  identified 
using  symbolic  names  of  six  ANSI  FORTRAN  characters  or  less.  All  names 
must  start  with  an  alphanumeric  character.  The  result  of  this  approach 
is  a code  which  the  user  completely  controls  down  to  the  functional  or 
operational  level.  Associated  with  each  symbol  is  a set  of  symbol 
characteristics  referred  to  as  attributes.  These  attributes  are  gener- 
ated as  the  data  associated  with  the  symbol  are  generated  or  modified  by 
an  operation.  The  attributes  are  checked  each  time  the  data  are  used  in 
an  operation.  This  Insures  the  integrity  of  the  resulting  data  and  the 
sanity  of  the  operation.  For  example,  if  the  user  attempts  to  generate 
an  impedance  matrix  using  data  which  do  not  represent  a geometrical 
structure,  an  error  will  occur  since  the  operation  is  not  defined. 

However,  if  an  impedance  matrix  is  generated  for  a properly  defined 
geometry  data  set,  it  will  have  the  attributes  of  a complex  impedance 

matrix  and  will  be  identified  as  having  been  generated  from  the  geometry 
I 

data  set  specified.  In  this  way,  a symbol's  lineage  and  the  type  of  data 
(both  physical  and  computational)  are  known.  Likewise,  the  solution  vec- 
tor for  a geometry  data  set  is  linked  to  the  impedance  matrix  and  thus  to 
the  geometry  which  was  the  parent  data  for  all  subsequent  operations. 
Therefore,  when  field  output  is  desired,  the  code  will  retrieve  the  correct 
electrical  current  data  for  use  with  the  geometry  data  specified. 
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The  primary  function  of  GEMACS  is  to  store  and  retrieve  data  in 
order  that  user  specified  operations  may  be  performed.  The  result  of 

these  operations  will  be  a solution  or  analysis  of  the  system  described 
to  the  code. 

As  more  operations  are  added  to  the  GEMACS  code,  it  is  necessary  to 
define  the  attributes  of  the  data  necessary  to  assure  correct  program 
operation,  modify  the  ILP  (Input  Language  Processor)  to  recognize  the 
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command  and  add  the  software  to  perform  the  operation.  The  data  handling 
will  be  taken  care  of  by  the  executive  level  programs  in  the  GEMACS  code. 

As  an  example,  a normal  MOM  scattering  solution  at  a single  fre- 
quency for  which  the  far  radiation  field  is  desired  could  be  done  with 
the  following  input  stream.  The  directives  are  discussed  in  the  following 
sect  ion. 

COMMAND 

1 GMDATA  = GEOMI 

2 EINC  = ESRC  (GEOMI),  FRQ  = 180,  SW  = l.,0.  .THETA  = 45. 

3 ZGEN  GMDATA  = GEOMI,  SI NCOS,  ZMATRX  = ZMAT1 

4 BNDZ1  = BAND  (ZMATI),  BN DU  = 50 

5 BNDZI  = LUD  (BNDZ1) 

6 BNDZI  * CUR  1 = EINC  - ZMATI  * CUR1,  MAX  I TR  = 10,  CONVRG  = 1, 

VALUE  = 20 

7 EFIELD  (CUR1),  LOGPLR,  PI  =0.  P2  = 180.  DP  = 10.  T1  = 90. 

8 END 

GEOMETRY  DATA 

END 

Card  I directs  the  geometry  processor  to  generate  the  data  to  be  associated 
with  symbol  GEOMI.  Card  2 directs  data  associated  with  symbol  EINC  to 
be  generated  by  a spherical  wave  at  180  MHz  incident  on  the  geometry 
specified  by  GEOMI  at  a spherical  angle  theta  of  45°.  Card  3 directs  that 
data  assocated  with  impedance  matrix  ZMATI  be  generated  using  the  sine  + 
cosine  + pulse  expansion  function  on  the  geometry  associated  with  GEOMI. 
Card  4 causes  extraction  of  the  elements  from  ZMATI  which  are  located 
within  50  elements  of  the  diagonal  elements  and  associates  the  data  with 
symbol  BNDZI.  Card  5 results  in  BNDZI  being  decomposed  into  upper  and 
lower  triangular  matrices  and  the  result  restored  in  BNDZI.  Card  6 
invokes  the  BMI  solution  technique  to  obtain  the  data  for  symbol  CURI . 

The  procedure  is  limited  to  10  iterations  and  the  BCRE  convergence 
criterion  will  be  used.  When  the  BCRE  < 20  percent,  the  procedure  will 
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stop  and  return  to  execute  the  next  directive.  Card  7 directs  the 
computation  and  output  of  the  far-field  of  structure  GE0M1 . The  field 
will  be  computed  at  10°  intervals  from  4.  = 0 to  <J>  = 180  for  0 = 90°.  In 
addition  to  a tabular  print,  the  log|Q  of  the  field  will  be  plotted  on  a 
polar  graph.  Card  8 indicates  the  end  of  the  directives  and  is  followed 
by  geometry  data  input  which  are  also  terminated  by  an  END  card.  The 
input  is  completely  free  field  and  there  are  default  values  for  most 
parameters.  All  of  the  directives  are  processed  before  any  execution 
begins.  This  precludes  wasting  considerable  computer  resources  in  the 
event  of  an  error  in  the  command  directives.  A complete  discussion  of 
each  directive  and  the  geometry  processor  is  presented  in  the  following 
section. 


c. 


GEMACS  COMMAND  AND  GEOMETRY  LANGUAGE 


The  GEMACS  inputs  are  in  two  categories.  The  command  language 
directs  the  program  execution  while  the  geometry  language  is  used  to 
describe  the  geometrical  properties  of  the  structure  being  analyzed. 


The  GEMACS  command  language  is  a free  field,  keyword  oriented  input 
stream.  The  order  of  the  inputs  is  not  important  and  the  items  on  each 
card  are  delimited  by  a blank  or  a comma.  An  item  is  considered  to  be  all 
of  the  input  associated  with  a particular  parameter  such  as  THETA  = 90. 

Note  that  an  item  may  consist  of  several  entries,  each  entry  is  referred 
to  as  a field.  Blanks  may  be  imbedded  between  fields  of  an  item  but  not 
within  a field.  Thus,  THETA  = 90.  is  acceptable  while  THETA  =90.  is 
incorrect  and  will  be  interpreted  as  2 items  (i.e.,  THETA  = 9 and  0) . 

The  extraneous  item  would  be  detected  by  the  code  and  execution  would  be 
i nhi bi ted . 

In  order  to  prevent  wasting  computer  resources,  all  of  the  GEMACS 
commands  are  read  prior  to  execution  of  the  code.  All  e rors  in  the 
user  commands  are  identified;  that  is,  one  error  does  not  preclude 
location  of  any  other  error  during  the  same  execution.  This  prevents 
the  need  for  the  user  to  make  several  submittals  to  debug  the  input. 

The  GEMACS  geometry  language  is  also  a free-field  language.  However, 
the  items  must  appear  in  the  order  specified  or  an  error  will  occur 
which  may  not  be  detected.  The  reason  for  not  using  keyword-specified 
items  on  the  geometry  inputs  is  to  decrease  the  effort  required  by  the 
user  since  the  geometry  inputs  are  usually  much  larger  than  the  command 
i nputs . 

For  both  inputs,  there  are  several  standard  conventions.  These 
relate  to  comment  cards,  comments  on  cards,  and  continuation  cards. 

Comment  cards  are  those  cards  which  have  a $ as  the  first  non-blank 
character.  Likewise,  comments  may  be  appended  to  command  or  geometry 
input  by  preceding  the  comment  with  a $.  If  the  last  character  encountered 
before  a $ or  the  end  of  a card  is  a comma  or  arithmetic  operator  (+,  -,*,/), 
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the  next  card  must  be  a continuation  card.  If  a card  has  a continuation 
character  in  column  1,  it  is  treated  as  a continuation  of  the  previous 
card.  All  continuation  cards  must  have  a continuation  character  in 
co 1 umn  1 . This  is  the  only  format  required.  The  continuation  character 
may  be  installation  dependent,  it  i s an  asterisk  (*)  in  most  versions. 
Other  possible  choices  are  the  other  arithmetic  operators.  The  actual 
character  is  defined  as  variable  NCONCH  and  is  set  in  subroutine  BLKDAT. 
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1 . GEMACS  Command  Language 

In  describing  the  GEMACS  command  language  items  enclosed  in 
brackets  [ ] have  default  values  and  need  not  be  specified  if  the  default 
value  is  acceptable  to  the  user.  I terns  enclosed  in  braces j j indicate 
a multiple  choice.  The  only  restrictions  on  symbolic  names  provided  by 
the  user  are  that  they  be  six  characters  or  less,  the  first  character  be 
a member  of  the  alphabet  (A-Z) , and  only  characters  contained  in  the 
alphabet  or  the  digits  (0-9)  be  present.  That  is,  the  characters  =, 

+,  -,  *,  /,  $,  and  comma  are  not  allowed.  In  addition,  the  following 
reserved  keywords  may  nC  •vj  cd  rr"r  symbolic  names. 


ONE  l ETTER  Kl YWOROS 


c 

D 

N 

0 R 

V 

X 

z 

TWO 

LETTER  KEYWORDS 

CW 

Cl 

C2 

DM  DP 

DR 

DT 

DW 

DX 

DY 

D7. 

IS 

LU 

NP 

NR  ON 

PI 

P2 

R 1 

R2 

SC 

SW 

Tl 

T2 

VS 

XI  X2 

Y1 

Y2 

21 

Z2 

THREE  LETTER 

KEYWORDS 

. 

ABS 

COP 

ECC 

END  PRQ 

IIP 

INV 

LUD 

OFF 

PHI 

RDP 

SEQ  SET 

FOUR  LETTCR  KEYWORDS 

AXIS 

RAHD 

BNDW 

COND 

EPSR 

ESP.C 

LOOP 

PLOT 

PRLC 

READ 

SCDP 

SEGS 

SIZE 

SRDP 

SRLC 

TAGS 

TIME 

TYPE 

VRSC 

2GEN 

ZIMP 

FIVE  LETTER  KEYWORDS 

CONJG 

CP  INC 

CPNUM 

DEBUG 

LABEL 

PARTN 

PIVOT 

PR  1 NT 

PULSE 

PURGE 

SOLVE 

THETA 

TRACE 

VALUE 

WR 1 TE 

SIX  LETTER  KEYWORDS 

BACSUB 

CHKPHT 

COLPSE 

CONVRS 

EFIELD 

EXPAND 

FILE  ID 

GMDATA 

LINLIH 

LINLOG 

LINPLR 

LOGLIN 

LOGLOG 

LOGPLR 

MAX  1 TR 

PCESIN 

REDUCE 

RETLCT 

REPLACE 

RSTART 

SI  NCOS 

symdef 

TRANSP 

v;i  pout 

ZCODES 

ZLOADS 

ZMATRX 
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In  addition  to  these  names,  one  other  case  is  to  be  avoided. 

If  an  out  of  core  matrix  is  to  be  decomposed  and  is  identified  symbolically, 
as  XXXXXX  where  the  X's  are  legitimate  characters,  then  the  user  must 
not  define  another  data  set  with  either  XXXLWR,  XXXUPR,  or  XXXPVT. 

These  names  will  be  internally  generated  to  contain  the  lower  triangular 
decomposed  matrix,  the  upper  triangular  decomposed  matrix,  and  the  pivot 
vector  as  specified.  These  names  may  be  referenced  in  output  statements 
however  in  general,  the  user  should  simply  ignore  them.  It  is  also 
correct  to  assume  that  a matrix  which  resides  out  of  core  is  not 
destroyed  when  it  is  decomposed.  However,  unless  a matrix  is  large,  it 
will  be  difficult  for  the  user  to  know  a priori  where  it  will  be  stored. 

A list  of  commands  is  given  in  table  1 in  which  the  following 
codes  are  used: 

Previously  undefined  symbol 
Previously  defined  symbol 
Either  S or  DS 
Numeric  value 

Either  a OS  or  numeric  value 
Keyword 

Alphameric  word  starting  with  a character  A-Z  and  contain- 
ing only  characters  A-Z  and  0-9 

I 

■ 


S 

DS 

SDS 

N 

DSN 

KW 

A 
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FORWARD  ELIMINATION/BACK  SUBSTITU-  BACSUB  DSI*SDS  * DS2  BACSUB 

TION 


END  OF  COMMANDS  END 


BACSUB 


Forward  El  iminat ion/back  Substitution  Compand 


BACSUB  DS1*SDS  = DS2 


This  command  causes  the  solution  for  a previously  decompo- 
sed matrix  DS1  to  be  found  for  the  right-hand  side  DS2  and  stored  as 
symbol  SDS • For  example,  assume  SRCl,  SRC2,  and  SRC3  have  been  previously 
defined,  then  the  solutions  SOLI,  S0L2,  and  S0L3  would  be  obtained  by: 

ZM  = LUD(ZIJMAT) 

BACSUB  ZM*S0L1  = SRCl 
BACSUB  ZM*S0L2  = SRC2 
BACSUB  ZM*S0L3  = SRC3 

This  command  permits  the  user  to  obtain  several  solutions  with  only  one 
decomposi tion. 
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Construct  Banded  Matrix 


SDS  = HAND  (DS),  BNDW  = II 

This  operation  causes  the  data  associated  with  the  matrix 
DS  which  is  within  N elements  of  a diagonal  element  to  be  transferred  to  the 
symbol  identified  as  SDS.  Note  that  SDS  and  DS  may  not  be  the  same  symbolic 
name . This  operation  is  typically  used  to  construct  the  banded  matrix  for  use 
in  the  BMI  solution  process.  This  operation  is  illustrated  in  figure  1. 

Examples: 

BNDZIJ  = BAND  (ZIJMAT),  BNDW  = 50 

This  operation  will  construct  a banded  matrix  from  the  data 
associated  with  ZIJMAT 

DIAG  = BAND  (ZIJMAT),  BNDW  = 0 

This  operation  will  extract  the  diagonal  elements  from 
ZIJMAT  and  store  them  as  DIAG. 


Figure  I.  Illustration  of  BAND  Operation 


BMI 


BMI  Solution  Process 

OSI  * SDS1  = 0S2  - DS3  * SDS2  £,C0NVRG 

J, VALUE  = Nj  , MAXITR  - N 

This  command  causes  the  BMI  solution  process  to  be  exe- 
cuted. DS1  must  be  a banded  decomposed  matrix  whose  elements  were  origi- 
nally contained  in  DS3.  The  solution  will  be  stored  in  SDS1  upon  com- 
pletion. DS2  is  the  excitation  or  right-hand  side  of  the  original  system 
of  simultaneous  equations  and  DS3  the  original  impedance  matrix  of  coeffi- 
cients. DS3  will  still  contain  the  elements  which  were  used  to  generate 
the  banded  matrix;  however,  they  will  be  ignored.  The  symbol  SDS2  may  be 
predefined  and  preloaded  or  it  may  be  SDS1,  in  which  case  it  will  be 
initialized  to  zero.  The  convergence  parameter  to  be  used  is  contained 
in  the  CONVRG  item.  Their  relative  merits  and  definitions  are  described 
in  Volume  II,  GEMACS  Engineering  Manual.  Default  convergence  item  is 
CONVRG  = PRE.  The  value  in  percent  which  the  convergence  parameter  must 
reach  is  contained  in  the  VALUE  item.  The  default  item  is  VALUE  = 1. 

The  MAXITR  parameter  defines  an  upper  bound  on  the  number  of  iterations. 
There  is  no  default  value  for  this  field. 

Example: 

LUDZIJ  * CUR  = VDRV  - ZIJMAT  * CUR,  CONVRG  - BCRE , 

VALUE  =*  10,  MAXITR  = 5 


I 


BCRE  V 
IRE  > 
PRE  ) 


CHKPNT 


Checkpoint  Command 

CHKPNT  [LU  = N,]  [FILEID  = A ] [,CPINC  = N ] [,Nr] 

This  command  designates  the  FORTRAN  logical  unit  (LU)  N 
in  the  LU  = N item  to  be  used  to  receive  the  checkpoint  data.  The  default 
item  is  LU  = 7 and  if  the  user  specifies  a different  logical  unit,  he  must 

assure  the  availability  of  the  unit  to  the  GEMACS  code.  The  first  word 

written  on  the  checkpoint  file  will  be  the  value  A specified  in  the 

FILEID  = A item.  A may  be  any  string  of  the  characters  A-Z,  0-9.  If  the 

item  is  not  specified,  the  default  field  CHKPNT  is  provided.  Checkpoints 
will  be  taken  at  time  increments  of  N CP  minutes  specified  in  the  CPIIJC  = 

N item.  If  the  item  is  not  specified,  an  immediate  checkpoint  is  written 
when  the  command  is  encountered  during  execution.  This  type  of  command 
will  not  change  the  checkpoint  increment  specified  on  a previous  command. 
Multiple  CHKPNT  commands  may  be  used  to  vary  the  checkpoint  increment  and 
logical  unit  during  execution. 

Checkpoints  are  accomplished  by  writing  all  data  con- 
tained in  named  commons  and  all  data  associated  with  symbolic  names  to 

i 

the  checkpoint  file.  For  large  problems,  this  can  be  a very  large 
amount  of  data  and  it  is  advisable  to  avoid  uskng  magnetic  tapes  for  the 
checkpoint  fjle  since  multiple  reels  may  be  required.  Also,  a large  CP 
increment  is  recommended  unless  large  data  blocks  are  PURGED  when  no 
longer  needed. 

A historical  record  of  checkpoint  information  is  kept  if 
the  NR  parameter  is  specified;  otherwise,  the  checkpoint  file  is  rewound 
after  each  checkpoint  and  overwritten  with  subsequent  checkpoints.  Due 
to  the  large  amount  of  data,  use  of  the  NR  parameter  is  not  recommended. 

If  the  NR  parameter  is  used,  checkpointing  should  be  controlled  directly 
from  the  command  language  by  omission  of  the  CPINC  item.  This  is  the 
only  mode  that  restarting  can  be  guaranteed  with  known  data  for  multiple 
checkpoints  on  the  same  file  in  release  1 of  GEMACS. 
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COUJG 


Complex  Conjugation  (Hot  Available) 

SOS  = CONJG  (DSN) 

This  operation  will  associate  the  complex  conjugate  of 
the  data  operand  with  the  symbol  SDS.  Note  that  SDS  may  be  the 
same  symbol  specified  in  OSN. 
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DEBUG  {off  [ [ , I LP] 

( TRACE  ) 


This  command  is  used  to  obtain  diagnostic  information  during 
program  execution.  Specifying  the  ON  parameter  causes  all  available  informa- 
tion associated  with  the  subsequent  tasks  to  be  printed.  When  the  TRACE  para- 
meter is  specified,  the  printout  will  include  subroutine  entry  and  exit 
information  to  allow  the  user  to  follow  the  program  flow.  When  OFF  is  speci- 
fied, the  program  returns  to  the  normal  mode.  The  parameter  ILP  may  be 
specified  if  the  user  needs  to  obtain  diagnostic  information  during  the 
execution  of  the  Input  Language  Processor. 

Examples: 

1 . DEBUG  ON 
BACSUB  Z * I - V 
DEBUG  OFF 

This  command  stream  will  cause  a detailed  printout 
to  occur  during  execution  of  the  BACSUB  command. 

2.  DEBUG  ON, ILP 
BACSUB  Z * I - V 
DEBUG  OFF 

This  will  cause  a detailed  printout  to  occur  during 
input  processing  of  the  BACSUB  command. 

3.  DEBUG  ON, ILP 
END 

This  will  cause  all  of  the  input  language  processes 
and  execution  tables  to  be  printed  on  termination  of  the  ILP  and  before 
execution  of  the  tasks  specified  by  the  user. 
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This  command  directs  the  arithmetic  operation  specified 


to  be  performed  on  the  data  associated  with  the  symbolic  name  or  the 
numeric  value  used.  The  legality  of  the  operation  is  determined  by  the 
type  of  data.  The  valid  operations  are  indicated  below. 


Attempts  to  operate  on  improperly  dimensioned  matrices 
will  result  in  an  error.  Note  that  the  resultant  symbol  may  be  the  same 


as  an  operand.  Several  global  internal  parameters  may  be  defined  by 
use  of  arithmetic  operations.  These  are: 

FRQ  (frequency  in  MHz) 

TIME  (CP  run  time  in  minutes) 

NUMFIL  (highest  FORTRAN  logical  unit  number  available 
for  use) 

COND  (ground  conductivity  (in  mhos/m) 

EPSR  (relative  dielectric  constant  for  ground) 

In  release  1 of  GEMACS,  there  is  no  hierarchy  of  opera- 
tion and  the  user  must  use  parentheses  to  denote  order  of  operations. 
Operations  are  performed  from  right  to  left  and  from  innermost  to 
outermost  parenthesis.  Thus, 

A - 3**2  + 6 38 
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DMP  (Concluded) 


Examples; 

FRQ  = FRQ  + I . 

OMEGA  - 6.28  * FRQ 
VOLTS  = ZIJMAT  * CURENT 
TIME  - 30 


$INCREMENT  FREQUENCY 
$C0NVERT  TO  RADIAN 

$SET  30  MINUTE  CP  TIME  LIMIT 


I 

I 
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EFIELD 


Electric  Field  Output 


[SDS=]  EFIELD  ( DS ) 


" /UNLIN  \ 
l LINLOG  I 
7 LOGUN  ( 
’ \ LOGLOG  / 
/ UNPLR  1 
. Vlogplr  ) 


[,U2-N]  [,DU=N]  [,V2=N]  [,DV=N]  [,W2=n] 
[,DW=f<]  [,  V 1 =n]  [,W1=N] 


This  command  will  compute  the  electric  field  due  to 
the  currents  identified  as  DS.  If  SDS  is  specified,  the  resultant  data 
are  associated  with  the  symbol  in  the  SDS  field.  If  SDS  is  not  speci- 
fied, the  data  are  not  saved.  The  location  of  all  points  at  which  the 
field  is  to  be  computed  may  be  specified  in  spherical,  cylindrical,  or 
Cartesian  coordinates.  If  spherical  parameters  are  specified  and  R is 
omitted,  the  far  electric  field  will  be  computed.  If  R is  specified, 
the  near  field  will  be  computed.  The  order  in  which  the  parameters 
are  specified  will  determine  the  order  of  the  output.  U,  V,  and  W may 
be  Rl,  Tl,  PI,  XI,  Yl,  Z1 , with  U2,  V2,  and  W2  being  R2,  T2,  P2,  X2, 

Y2,  Z2,  and  DU,  DV,  and  DW  being  DR,  DT,  DP,  DX,  DY,  DZ.  In  this  way, 
the  user  specifies  the  first  point,  the  increment,  and  the  last  point 
for  each  coordinate  axis.  If  U,  W,  V represent  three  coordinate  speci- 
fications, then  specifying  U1  before  W1  will  cause  the  variation  speci- 
fied for  W to  be  completed  for  each  value  of  U.  This  is  similar  to  nested 
FORTRAN  DO  loops.  At  the  completion  of  each  innermost  variation,  the  elec- 
tric field  components  will  be  printed  and,  if  specified,  plotted  using  the 
scales  specified.  The  dependent  axis  will  be  the  magnitude  of  the  compo- 
nents of  the  electric  field  and  the  independent  axis  will  be  the  geometric 
variables.  Note  that  to  specify  a polar  plot  with  either  R,  X,  Y,  or  Z as 
the  most  rapidly  varying  coordinate  is  meaningless  and  will  result  in  an 
error.  However,  requesting  a linear  or  log  independent  axis  for  an  angular 
coordinate  is  not  meaningless  and  will  be  plotted.  A combination  R,  T, 
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EF I ELD  (Continued) 

P will  imply  a spherical  coordinate  system  while  R,  T,  Z implies  a 
cylindrical  system  and  X,  Y,  Z implies  a Cartesian  system.  These  are 
the  only  combinations  al'lowed  and  the  meanings  of  the  primary  coordinate 
identified  (R,  T,  P,  X,  Y,  Z)  are  given  in  table  2. 

The  default  values  for  Ul,  VI,  W1  , DU,  DV,  and  DW  are  all  zero. 
The  coordinate  specified  will  take  all  values  from  Ul  to  U2  in  steps  of  DU. 

U2,  V2,  and  W2  are  defaulted  to  Ul,  VI,  and  W1 . 

Example: 

EFIELD  (CUR)  LOGPLR  R1  = 36  T1  = 0,  DT  = 10, 

T2  = 90,  PI  = 0.,  DP  = 10,  P2  = 360. 

This  will  compute  the  near  field  at  a distance  of  36  meters 
in  the  upper  hemisphere.  Log  polar  plots  of  Er,  E0,  and  E^  will  be  made 
for  theta  angles  of  0°  to  90°  in  increments  of  10°  with  37  points  for  each 
component  per  plot. 


TABLE  2.  KEYWORD  DEFINITIONS  FOR  COORDINATE  SYSTEMS 


SPHERICAL 

CYLINDRICAL 

CARTESIAN 

R 

Radius  of  Point 
from  Origin 

Radius  in  XY 
Plane 

■ 

Angle  measured 
from  Z axis 

Angle  measured 
from  X axis 
counterclockwi se 

■ 

Angle  measured 
from  X axis 
counterclockwi se 

a 

X Coordinate 

Y 

Y Coordinate 

Z 

Z Coordinate 

Z Coordinate 

EF I ELD  (Continued) 


The  plot  output  associated  with  the  electric  field  output 
is  unlabeled  in  release  I of  GEMACS.  The  plots  are  intended  to  be  used 
in  a qualitative  manner,  and  the  data  are  listed  prior  to  the  plot.  The 
abscissa  (X)  axis  is  printed  across  the  page  and  the  ordinate  (Y)  is 
printed  down  the  page.  In  the  event  of  a polar  plot,  the  origin  is  at 
the  center  of  the  display  region  while  for  nonpolar  plots,  the  origin  is 
as  indicated  by  the  axis  data  listed. 

All  plots  use  the  most  rapidly  varying  geometric  para- 
meter as  the  independent  variable  (angle  for  polar  plots,  abscissa  for 
nonpolar  plots).  The  dependent  variable  is  the  ratio  of  the  magnitude 
of  the  electric  field  at  the  observation  point  to  the  maximum  electric 
field  computed  for  all  observation  points.  The  LOG  specification  results 
in  the  value  being  modified  to  20  log^  of  the  ratio  (Field  Strength/ 
Maximum  Field  Strength,  power  dB  down  from  maximum).  The  dynamic  range 
of  the  plots  is  100  dB. 

When  the  independent  variable  is  an  angular  coordinate 
for  a polar  plot,  the  location  of  the  reference  depends  on  the  coordinate 
and  the  coordinate  system  in  use.  For  cylindrical  coordinate,  the  & 
angle  is  measured  positive  counterclockwise  from  the  positive  X axis. 

The  same  convention  holds  for  the  0 angle  in  spherical  coordinates. 

This  is  illustrated  in  figure  2a.  For  the  spherical  6 angle,  the  mea- 
sure is  positive  clockwise  from  the  plot  Y axis.  In  this  case,  the 

A X A 

plane  of  the  plot  is  the  plane  containing  the  vectors  r and  Z,  where  r 
is  in  the  direction  of  the  observation  point  and  Z is  parallel  to  the 

Cartesian  Z axis.  This  is  illustrated  in  figure  2b. 

Angular  coordinates  for  nonpolar  plots  are  treated  the 

same  as  any  other  independent  variable  and  plotted  as  the  abscissa. 
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END 


End  of  Commands 

END 

The  END  card  is  used  to  designate  the  end  of  a command 
input  deck.  Any  text  may  be  on  the  same  card  as  long  as  it  is  separated 
from  the  END  by  at  least  one  blank  or  comma.  In  addition,  the  END  must  be 
the  first  field  encountered. 

Examples: 

ENO 

END  OF  COMMANDS 

END  OF  FCP747  ANALYSIS 
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ESRC 


\ 

\ 

\ 


Electric  Field  Excitation 

SDS  = ESRC  [(DS)]  [,FRQ  = DSN]  SW  = DSN,  DSN 
[,R  = DSN]  [.THETA  = DSN  ] [,PHI  = DSN  ] 
[,ECC  * DSN] 


This  command  generates  or  modifies  the  excitation  spec- 
ified in  SDS  by  driving  the  structure  identified  by  DS  with  an  incident 
electric  field.  The  default  structure  identifier  GEODAT  is  supplied  if 
omitted.  The  frequency  in  MHz  is  specified  in  the  FRQ  item  and,  if 
omitted,  the  value  used  is  the  last  value  specified  in  a FRQ  item  of  any 
command.  If  the  frequency  has  changed  since  the  last  excitation  (either 
ESRC  or  VSRC),  the  data  are  reinitialized  to  zero  before  the  excitation 
is  computed.  Once  computed,  the  excitation  is  superposi tioned  with  pre- 
vious excitation  data.  The  angular  coordinates  of  the  source  are  illus- 
trated in  figure  3.  THETA  is  measured  in  degrees  from  the  Cartesian  Z 
axis  and  PHI  is  measured  in  degrees  counterclockwise  from  the  Cartesian 
X axis.  The  default  values  are  THETA  = 90.,  PHI  = 0.  If  the  radial 
location  specified  in  the  R item  is  positive,  a spherical  incident  wave 
from  a source  located  at  R,  THETA,  and  PHI  will  be  generated.  If  the 
radial  location  is  omitted  or  negative,  a plane  wave  incident  from  THETA 
and  PHI  will  be  generated.  The  default  value  is  R = -1.  The  vector 
components  of  the  source  field  are  specified  as  the  values  in  the  SW 
field.  The  first  value  is  the  component  of  the  field  in  the  spherical 
0 direction  r the  second  value  is  the  component  in  the  spherical  cj> 
direction.  If  the  value  item  is  SW  = -1.,  0.  for  example,  it  corresponds 
to  a vertically  polarized  electric  field  with  an  intensity  of  1 volt/m. 

If  an  elliptically  polarized  incident  field  is  to  be  generated,  the  ratio 
of  the  minor  to  major  axis  is  specified  in  the  ECC  field.  The  default 
value  is  ECC  ■ 0,  indicating  a nonpolarized  wave.  Left  or  right  polariza- 
tion is  denoted  by  the  sign  of  this  parameter.  Left  polarization  is 
positive  while  right  polarization  is  negative. 
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ESRC  (Concluded) 


II 


When  a ground  plane  has  been  specified  by  a previous  ZGEN 
command,  the  total  excitation  is  the  vector  sum  of  the  source  field  and 
the  reflected  field.  The  reflected  field  is  calculated  using  the  reflection 
coefficient  method  discussed  in  the  GEMACS  Engineering  Manual. 


Example : 

VANT  = ESRC  SW  = 0.,l.,  THETA  = 45.,  ECC  = 1 

This  will  drive  the  default  structure  (GEODAT)  with  a 
left-hand  circularly  polarized  plane  wave  incident  from  45“  in  the  XZ 
plane  of  the  structure. 


Z 


Figure  3.  Excitation  Coordinate  System 


GMDATA 


Generate  a Structure  Geometry 
GMDATA  [=  S]  [,LU  = n] 

This  command  causes  the  geometry  processor  to  be  called 
to  read  the  geometry  data  cards  which  follow  the  END  card.  Note  that 
geometry  data  do  not  get  read  until  after  all  commands  are  read.  The 
default  symbol  name  of  the  geometry  data  set  S is  GEODAT.  The 
processor  will  read  the  data  from  the  FORTRAN  logical  unit  specified  in 
the  LU  = N item.  Again,  the  user  must  assure  that  N is  a valid  logical 
unit  and  the  file  must  be  in  card  image  format.  The  default  is  the 
system  card  input  file. 

Note  that  if  the  default  name  is  used,  it  must  not  be 
explicitly  used  in  a subsequent  command  (i.e.,  it  must  be  defaulted  for 
the  remainder  of  the  program). 

Exampl es : 

GMDATA 

GMDATA  = FCP7^7 

GMDATA  = HUT,  LU  - 11 

- ZGEN  SI  NCOS  FRQ-295  ZMATRX=ZI JMAT 

ZGEN  SINCOS  GMDATA=FCP7i*7  ZMATRX=Z I J 7^7 

ZGEN  SINCOS  GMDATA-HUT  ZMATRX=Z I JHUT 

These  examples  result  in  three  geometry  data  sets  being 
generated  and  identified  as  GEODAT,  FCP  7**7>  and  HUT,  respectively. 

These  data  sets  are  then  used  to  generate  impedance  matrices.  The 
first  ZGEN  command  uses  the  default  geometry  data  set  and  generates 
an  impedance  matrix  with  the  name  ZIJMAT.  The  remaining  two  ZGEN 
commands  use  the  geometry  data  specified  and  generate  impedance  matrices 
with  the  names  identified  in  the  ZMATRX  parameter  field. 


LOOP/LABEL 


Command  Repetition 


LOOP  {J}  N 
LABEL 


These  inputs  cause  the  commands  contained  between  them  to 
be  executed  N times.  Loops  may  be  nested  to  any  level  as  long  as  the 
total  number  of  LOOP  commands  does  not  exceed  10.  When  using  nested 
loops,  the  loops  must  be  terminated  from  the  innermost  loop  to  the 
outermost  loop.  The 
or  an  integer. 


field  may  be  a six  character  alphabetical  entry 


Example: 

LOOP 

1,  5 

LABEL 

1 

LOOP 

LOOPI , 

5 

LOOP 

L00P2 , 

10 

LABEL 

L00P2 

LABEL 

LOOPI 

$ EXECUTE  SUBSEQUENT  COMMANDS  5 TIMES 


$ EXECUTE  SUBSEQUENT  COMMANDS  5 TIMES 
$ EXECUTE  SUBSEQUENT  COMMANDS  10  TIMES 
$ COMMANDS  EXECUTED  50  TIMES 
$ INNER  LOOP  TERMINATOR 

$ OUTER  LOOP  TERMINATOR 
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This  command  results  in  the  decomposition  by  rows  of  the 
matrix  DS  into  a lower  and  upper  triangular  matrix  identified  by  SDS.  In 
most  cases,  the  matrix  DS  will  not  reside  in  core  memory,  and  subsequently, 
there  will  be  two  matrices  generated.  They  will  be  internally  identified 
as  symbols  where  the  rightmost  three  characters  of  the  symbol  specified 
for  SDS  are  replaced  with  LWR  and  UPR  for  the  lower  and  upper  triangular 
matrices  respectively.  This  will  be  transparent  to  the  user  since  any 

reference  to  SDS  will  result  in  the  retrieval  of  the  lower  and  upper  trian- 
gular matrices  when  necessary  for  the  operation.  However,  the  user  may 
reference  the  data  symbolically  by  using  the  original  symbol  with  LWR  and 
UPR  replacing  the  last  three  characters  of  the  name.  If  SDS  has  three  or 
less  characters,  then  the  matrices  are  simply  LWR  and  UPR.  No  pivoting  will 
take  place  during  decomposition.  This  is  due  to  the  fact  that  for  EM  problems, 
pivoting  is  usually  of  little  value  and  can  be  quite  time  consuming  for  matrices 
not  stored  in  core.  Pivoting  may  be  added  in  a subsequent  version  if  a need 
is  demonstrated. 

Examples : 

LIJDZIJ  = LUD  (ZIJMAT) 

ZIJMAT  = LUD  (ZIJMAT) 

IM  = LUD  (ZIJMAT) 

PRINT  LUDLWR,  LUDUPR 
PRINT  ZIJLWR,  ZIJUPR 
PRINT  LWR,  UPR 

Note:  When  the  matrix  DS  does  not  reside  in  core,  it  will 

still  exist  on  the  original  file.  The  LWR  and  UPR  matrices  will  reside 
on  files  other  than  the  original.  Therefore,  purging  DS  will  not  affect 
the  LWR  and  UPR  matrices.  Also,  the  user  will  retain  DS  if  the  LWR  and/or 
UPR  matrices  are  purged. 
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Plot  Command  (Not  Available) 


PLOT  DSI,  DS2,  TYPE 


LINLIN 

LINLOG 

LOGLIN 

LOGLOG 

LINPLR 

LOGPLR 


This  command  will  plot  the  data  associated  with  DSI  on 
the  y axis  against  the  data  associated  with  DS2  on  the  x axis.  The  type 
of  plot  is  specified  by  the  value  in  the  TYPE  item.  The  first  three 
characters  define  the  Y axis  while  the  last  three  characters  define  the 
X axis.  The  symbolic  names  will  be  printed  to  identify  the  data  to 
the  user.  If  DSI  contains  complex  data,  both  magnitude  and  phase 
will  be  plotted.  DS2  must  contain  only  real  data. 

Example: 

PLOT  CURDAT,  LDAT  LOGLIN 
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PRINT 


Print  Data  Command 
PRINT  SDS , SDS,  ...  SDS 

This  command  allows  the  user  to  obtain  the  entire  contents 
of  each  symbol  specified.  If  the  data  are  complex,  the  output  will 
contain  both  the  real  and  imaginary  components  as  well  as  the  magnitude 
and  phase.  For  complex  data,  there  will  be  2 elements  per  line  and  for 
real  data,  there  will  be  10  elements  per  line.  Printing  out  large 
complex  arrays  can  consume  a fair  amount  of  paper  and  the  user  is 
encouraged  to  use  the  WRITE  command  when  the  entire  contents  are  not 
requi red. 

Examp  I e : 

PRINT  VSRC , CURRNT 

This  command  will  cause  the  data  associated  with  symbols 
VSRC  and  CURRNT  to  be  printed  sequentially. 
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PURGE 


Purge  Data  Command 
PURGE  SDS , SDS , ...  SOS 

This  command  will  cause  the  internal  core  storage  or 
FORTRAN  logical  unit  associated  with  the  specified  symbols  to  be  made 
available  for  other  use.  The  data  are  not  retrievable  after  a PURGE 
command.  Due  to  the  limited  FORTRAN  logical  units,  it  is  recommended 
that  symbols  be  purged  when  no  longer  required.  This  will  also  make 
checkpoint  files  shorter.  Purged  symbols  may  be  referenced  if  the 
actual  data  are  not  required.  This  could  occur,  for  example,  after  a 
matrix  has  been  decomposed  and  all  that  is  required  is  the  lower/upper 
triangular  matrices. 

Example: 

GMDATA 

ZGEN  SINCOS  FRQ  = 123 
ZIJMAT  - LUD  (ZIJMAT) 

PURGE  ZIJMAT 

VOLT  * VSRC , V ■ l.,0.  SEGS  * 51-60 

BACSUB  ZIJMAT  * CUR  - VOLT 

PRINT  CUR,  VOLT 

END  OF  COMMANDS 

GEOMETRY  DATA 

END  OF  DATA 


READ 


Data  Input  (Not  Available) 


READ  SDS  [,LU  - »]  [•TYPE-{?}][-R"BJ[  ,R2  = nJ 
[.Cl  - nJ[,C2  - nJ[, fileid  « aJ 


This  command  will  cause  GEMACS  to  read  card  image  data  to 
be  associated  with  the  symbol  SDS  from  the  FORTRAN  logical  unit  specified 
in  the  LU  ■ N item.  The  default  logical  unit  is  the  system  card  input 
file.  The  data  must  be  in  card  image  format  and  must  be  terminated  with 

an  END  card.  The  TYPE  * item  identifies  the  type  of  data  to  be 

read.  R identifies  real  data,  C identifies  complex  data.  The  default 
type  is  R.  The  parameters  Ri , R2,  Cl,  C2  designate  the  storage  loca- 
tions for  the  data.  The  default  values  are:  Rl  = 1 , R2  = Rl , C 1 = 1 , 

and  C2  » Cl.  Matrix  data  are  assumed  to  be  ordered  by  columns  on  the 
input  cards.  The  card  data  are  free-field  format  and  reading  will 
continue  until  an  END  is  encountered.  Excess  data  will  be  ignored  and  a 
warning  message  Issued  while  excess  variables  will  be  unaltered  and  a 
warning  message  issued.  That  is,  if  there  are  M data  elements  read  from 
the  input  and  M < (|R2  - Rl | - | C2  - Cl|),  then  (|R2  - Rl | ) • ( | C2  - C 1 | ) - M 
entries  of  SDS  are  unaltered.  If  the  FILEID  entry  is  present,  the  first 
word  read  must  correspond  to  the  FILEID  field  A.  Default  is  no  FILEID 
specified. 

Again,  if  a logical  unit  other  than  the  system  card  input 
is  specified,  the  user  must  assure  the  unit  is  available  to  the  GEMACS 
code.  Note  that  continuation  and  comment  card  rules  apply  to  the  user's 
input. 

Example: 

READ  VORV,  TYPE  - C,  R2  - 100,  FILEID  - VI 
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RSTART 


Checkpoint  Restart 

RSTART  [LU  = N]  [.FILEID  = a]  .CPNUM  = N 

This  command  is  used  to  restart  a job  from  checkpoint. 

The  checkpoint  file  is  to  reside  on  the  FORTRAN  logical  unit  specified 
in  the  LU  = N item.  The  default  item  i s LU  = 7 which  is  the  same  as 
the  checkpoint  default  logical  unit.  If  an  alternate  logical  unit  is 
specified,  the  user  is  responsible  for  assuring  that  GEMACS  can  access  the 
unit.  The  FILEID  item  is  used  to  assure  that  the  correct  checkpoint 
file  is  available.  The  default  item  is  FILEID  = CHKPI1T  which  also 
corresponds  to  the  default  CHKPNT  FILEID  item.  The  checkpoint  number 
to  be  recovered  is  specified  in  the  CPNUM  item  and  is  not  defaulted.  The 
value  N specifies  the  integer  number  of  the  checkpoint  to  be  recovered. 
This  is  done  to  permit  different  operations  to  be  performed  on  the  data 
without  being  required  to  regenerate  all  the  data.  For  instance,  if  a 
checkpoint  was  written  after  the  impedance  matrix  was  generated,  the 
user  could  restart  at  that  point  and  use  a different  solution  procedure 
than  on  a previous  run. 

NOTE:  RSTART  should  be  the  first  command  encountered 

for  the  restart  run.  If  it  is  not,  all  previous 
commands  in  the  restart  input  stream  are  ignored. 

Example: 

RSTART  FILEID  = FCP747,  CPNUM  = 5 

If  a RSTART  is  executed  from  the  same  logical  unit  as  the 
checkpoint  was  writ  n to,  the  checkpoint  file  may  be  overwitten  on  sub- 
sequent checkpoints.  If  the  user  wishes  to  maintain  the  integrity  of  the 
original  checkpoint  tape,  the  restart  should  take  place  from  a different 
logical  unit. 
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SET 


Data  Initialization  and  Modification 

SET  SDS  = N [,N]  [,R1  = N]  [,R2  = N]  [,C1  = N] 

[,C2  = N] 

This  command  may  be  used  to  initialize  or  change  the 
value  of  data  associated  with  SDS.  If  the  data  are  complex,  then  SDS  = N, 
N corresponding  to  the  real  and  imaginary  components  is  used.  If  the 
data  are  real,  then  SDS  = Nis  the  correct  form.  The  parameters  R I , R2,  Cl, 
and  C2  specify  the  row  and  column  limits  of  the  data  to  be  loaded  with 
the  value  specified.  The  default  value  of  Rl  and  Cl  is  1 while  R2  and 
C2  default  to  Rl  and  Cl  respectively. 

This  command  would  allow  the  user  to  alter  an  excitation 
data  set  if  he  wished  to  force  a boundary  condition.  If  a structure  has 
interior  wires  and  is  excited  by  an  external  field,  the  field  on  the 
internal  wires  could  be  reset  to  zero.  Also,  the  initial  solution  for 
the  BMI  could  be  specified,  as  well  as  modifications  to  the  impedance 
matrix. 


Examp  1 
SET 

e: 

ZIJMAT 

If 

o 

o 

Rl  = 10,  t l - 100 

SET 

ZIJMAT 

o 

o 

H 

R2  = 100,  Cl  = 10 

SET 

Z 1 JMAT 

= 1 . ,0. 

Rl  = 10,  Cl  = 10 

SET 

VDRV  = 

O 

o 

>o 

II 

o 

This  sequence  would  load  zeros  into  every  element  of  the 
tenth  row  and  tenth  column  of  ZIJMAT  and  then  reset  the  diagonal  ele- 
ment to  (l.,0).  The  10th  element  of  VDR V would  be  set  to  zero.  This 
would  have  the  effect  of  constraining  the  current  in  the  10th  segment  to 
be  zero  and  not  allowing  any  interaction  between  the  10th  segment  and 
the  rest  of  the  structure  except  for  current  continuity  at  junctions. 


k 0 


SOLVE 


Solve  System  of  Simultaneous  Linear  Equations 
SOLVE  DS I * SDS  = DS2 

This  command  will  solve  for  the  solution  vector  SDS  using 
lower/upper  triangular  decomposition  on  DS1  and  back  substitution  using 
DS2.  If  DS1  is  already  decomposed,  only  the  back  substitution  will  be 
performed.  SDS  and  DS2  may  be  the  same  symbol . 

Example: 

SOLVE  ZIJMAT  * CUR  * EINC 
Will  cause  execution  of  the  following  equivalent  input. 

ZIJMAT  = LUD  (ZIJMAT) 

BACSUB  ZIJMAT  * CUR  = EINC 


SYMDEF 

Define  Symbol  Name  (Not  Available) 

SYMDEF  S j^TYPE  = [,R  - n][,C  - N] 

[•“«-{?}] 

This  command  allows  the  user  to  define  a data  set  for  use 
by  a ZCODES  subroutine.  The  data  type,  real  or  complex,  is  specified  by 
the  R or  C value  in  the  TYPE  item.  Default  type  is  real.  The  number 
of  rows  is  specified  by  the  integer  N field  of  the  R parameter,  and 
the  number  of  columns  is  specified  by  the  integer  N in  the  C item. 

Both  R and  C default  to  I.  The  sequence  of  the  data  are  specified  by 
R or  C in  the  SEQ  item.  SEQ  = R specifies  that  the  data  are  stored  by 
rows.  This  implies  a transposed  matrix.  SEQ  = C implies  the  data  are 
stored  by  columns  and  is  the  normal  FORTRAN  storage  sequence,  hence  the 
default  field  is  SEQ  = C. 


**2 


I 


TRANSP 


\ 


Matrix  Transposition  (Not  Available) 

SDS1  = TRANSP  (DS2) 

This  command  will  transpose  DS2  and  associate  the 
resultant  data  with  SDS1.  Note  that  SDS1  and  DS2  may  be  the  same 
symbol  . 

Example: 

ZIJMAT  = TRANSP  (Z1JMAT) 


} 

■* 


**3 


VSRC 


Voltage  or  Antenna  Excitation 


SOS  = VSRC  [(OS)]  [ , FRQ  = DSN]  ,V  = DSN,  DSN, 


)tags  ( 

| SEGS  | 


N,  N, 


This  command  will  set  up  or  add  to  the  excitation  specified 
by  SDS  on  the  structure  DS.  The  default  structure  identified  is  GEODAT. 
The  voltage  source  is  applied  as  a delta-gap  electric  field  at  the  mid- 
points of  the  specified  segments  in  the  geometry  data.  That  is  the  tan- 
gential electric  field  at  the  midpoints  of  the  segments  specified  is  -V/H 
where  l is  the  segment  length  in  meters.  The  frequency  in  MHz  is  spec- 
ified in  the  FRti  item  and  if  the  item  is  omitted,  the  last  frequency 
specified  in  a FRQ  item  on  any  command  is  used.  If  the  value  of  the 
frequency  has  changed  since  the  last  excitation  (either  VSRC  or  ESRC) , 
the  symbol  will  be  reinitialized  to  zero  before  the  source  data  are 
computed.  If  the  frequency  is  unchanged,  then  the  source  data  will  be 
added  to  the  existing  data  associated  with  SDS.  This  permits  super- 
oositioning  of  excitations.  The  real  and  imaginary  components  of  the 
voltage  source  are  specified  by  the  V parameter.  The  values  for  this 
item  may  have  been  previously  defined  symbolically.  The  segment 
identification  may  have  one  of  two  forms.  If  TAGS  is  specified,  then 
all  segments  which  have  tag  numbers  identified  in  the  parameter  list 
will  be  excited.  If  SEGS  is  specified,  only  those  segment  numbers 
listed  will  be  excited.  This  list  of  numbers  must  be  the  last  entry 
of  the  command  and  may  contain  a minus  sign  between  successive  entries. 
That  is  N|t  N0  - N^ , N^  is  valid  and  will  cause  tags  or  segments  Nj , 
through  and  including  N^,  and  to  be  excited. 

Example: 

VANT  = VSRC  , FRQ  = FRQMHZ 

V = .707,  - .707  TAGS  = I -A 

kk 


I 


W1P0UT 

Command  Stream  Modification 
W I POUT  N,  N,  N,  . . .N 

This  command  will  cause  the  commands  identified  by  the 
sequence  number  N to  be  cancelled.  The  commands  are  sequenced  in  ascend- 
ing order  starting  with  1.  Note  that  the  command  sequence  number  is  not 
necessarily  the  same  as  the  card  number  containing  the  command  since 
comment  cards  and  continuation  cards  may  be  present.  If  one  of  the  N is 
99999.  then  the  entire  sequence  from  the  previous  command  number  speci- 
fied up  to  and  including  the  WIPOUT  command  are  eliminated  from  the  execution. 

The  WIPOUT  command  would  normally  be  used  after  a RSTART 
command  to  change  the  command  sequence.  Additional  commands  may  follow 
the  WIPOUT  command. 

Example: 

RSTART  CPNUM  = 5 

WIPOUT  5,  99999 

This  would  eliminate  all  commands  after  the  fourth  command  of 
the  run  which  generated  the  checkpoint  being  restarted.  Subsequent 
commands  would  be  executed. 

(Note:  LOOP/LABEL  commands  may  not  be  wiped  out.) 
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WRITE 


Data  Output  Command 


WRITE  DS  [,LU  = N]  [,R1  = Nj  fc,R2  = N]  [,Cl  = N] 
[,C2  = N]  [, FILEID  = A] 


Using  this  command,  partial  data  associated  with  the 
symbol  DS  may  be  written  to  the  file  specified.  If  the  logical  unit 
item  LU  = N is  not  specified,  the  system  printer  is  used  and  the  FILEID 
item  Is  ignored.  I f LU  = N is  specified,  the  field  A in  the  FILEID 
item  is  written  first  and  then  the  data  specified.  In  this  case,  the 
output  is  in  FORTRAN  binary  format  and  may  be  used  as  input  to  other 
programs.  R 1 , R2,  Cl,  and  C2  define  the  row  and  column  limits  of  the 
data.  Oefault  values  for  R1  and  Cl  are  1 while  default  values  for  R2 
and  C2  are  dependent  on  whether  R1  or  Cl  are  specified.  If  R1  is  speci- 
fied R2  defaults  to  Rl.  If  not,  then  R2  defaults  to  number  of  rows  in 
the  symbol  DS.  The  same  procedure. appl ies  to  C2. 

EXAMPLE: 

WRITE  Z I J MAT  Rl  = 1 0 , C 1 = 1 , C2  * 5 

This  prints  the  first  5 elements  in  row  10  of  ZIJMAT 

WRITE  ZIJMAT 

This  writes  the  entire  matrix  ZIJMAT. 
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ZCODES 


User  Subroutine  Calls  (Not  Available) 

ZCODES  N,  SDS , SOS,  ....  SDS 

When  the  user  desires  to  perform  some  operation  on  the 
data  associated  with  the  symbols  specified,  he  may  do  so  using  a ZCODEN 
subroutine.  N is  an  integer  0-9  and  thus  provides  10  user  subroutine 
interfaces.  The  user  subroutine  interface  is: 

SUBROUT  I NE  ZCODEN  (MSYMS , NSYMS) 

DIMENSION  MSYMS  (10,  3) 

where  NSYMS  will  contain  the  number  of  symbols  specified  on  the  command 
and  MSYMS  is  an  array  which  contains  three  entries  for  each  symbol 
specified.  For  the  i**1  symbol,  these  are: 

MSYMS  (1,1)  = Symbol  Name 
MSYMS  (1,2)  = Number  of  Rows 
MSYMS  (1,3)  “ Number  of  Columns 

The  symbol  name  is  stored  in  a GEMACS  internal  code  and  in  order  to  write 
the  name,  it  must  first  be  converted  to  left  justified,  blank  filled  text 
using  the  following  FORTRAN  call  to  GEMACS  subroutine  CONVRT. 

CALL  CONVRT  (MYSYMS  (I,  1),  NAME) 

There  are  a maximum  of  10  symbols  which  can  be  passed  to  a ZCODEN  routine. 

The  data  associated  with  a symbol  are  retrieved  and  stored 
by  using  the  GEMACS  subroutines  GETSYM  and  PUTSYM.  The  FORTRAN  calls  are: 

CALL  GETSYM  (NAME,  ARRAY,  REC1,  REC2) 

CALL  PUTSYM  (NAME,  ARRAY,  REC1,  REC2) 

where 

NAME  = Symbol  name  (MYSYMS  (1,1)). 

ARRAY  = A user  provided  storage  array  large  enough 
for  the  data  requested. 

RECI  ■ First  record  desired. 

REC2  = Last  record  desired. 
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ZCODES  (Concluded) 


Matrices  are  stored  by  columns  and  each  column  is  a record. 
Therefore,  RECI  and  REC2  refer  to  the  first  and  last  column  to  be  retrieved 
or  stored. 


t ion. 


The  user  must  store  data  to  be  used  later  in  the  execu- 


Example: 

ZCODES  5,  ZIJMAT,  CUR1 , VDRV 

This  command  would  call  ZC0DE5  with  the  information 
regarding  the  three  symbols  specified  in  the  MSYMS  array  and  NSYMS  = 3. 


ZGEN 


Impedance  Matrix  Generation 

ZGEN  SINCOS  [.GMDATA  = DS]  [ , FRQ  = DSN]  , ZMATRX  = S 
[.ZLOADS  - DS]  [ , COND  = DSN]  [,EPSR  = DSN] 

This  command  causes  an  impedance  matrix  to  be  generated 
using  the  sine  + cosine  + pulse  expansion  and  collocation  on  the  structure 
specified  in  the  GMDATA  item.  The  default  structure  is  GEODAT  which  is 
the  default  name  for  the  GMDATA  command.  The  frequency  in  MHz  is  spec- 
ified by  the  value  DSN  of  the  FRQ  item.  The  last  FRQ  parameter  will  be 
used  if  none  is  specified  on  the  command.  If  the  FRQ  parameter  has  not 
been  previously  specified,  a fatal  error  will  occir.  Note  that  the  fre- 
quency may  be  specified  symbolically  or  numerically.  The  resultant 
impedance  matrix  is  identified  by  the  parameter  in  the  ZMATRX  item.  If 
the  structure  is  to  be  loaded,  the  value  in  the  ZLOADS  item  must  be  a 
symbol  name  of  a data  set  generated  by  a ZLOADS  command.  The  default  is 
no  loading  or  a null  ZLOADS  item.  If  a ground  is  to  be  used,  the  con- 
ductivity in  mhos/meter  must  be  specified  in  the  COND  item.  COND  = -I 
implies  a perfect  ground,  COND  = 0 implies  no  ground.  Default  is  COND  = 0. 
If  a nonperfect  ground  is  specified,  the  relative  dielectric  constant  er 
may  be  specified  in  the  EPSR  item.  The  default  item  is  EPSR  = 1.  For  a 
perfect  or  no  ground  case,  the  contents  of  the  EPSR  item  are  ignored. 

When  a ground  is  specified,  it  is  assumed  to  be  perpendicular  to  the 
structure  Z axis. 

Example: 

ZGEN  SINCOS  FRQ  = FRQMHZ , ZMATRX  = ZIJ,  COND  = 80 
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ZLOADS 


I 

I 


I 
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Structure  Loading 


ZLOADS 


SDS  [.GMDATA  = DS  ] , 


(TAGS 
SEGS 


N,  N , ...  N 


DSN 

DSN,  DSN 
DSN,  DSN, 


This  command  allows  a user  to  place  electrical  loads  on 
the  structure  identified  in  the  GMDATA  item.  The  default  structure 
(GEODAT)  will  be  used  if  the  GMDATA  item  is  omitted.  The  load  infor- 
mation data  will  be  associated  with  the  symbol  SDS  and  will  be  a complex 
column  vector  with  the  same  number  of  rows  as  wire  segments  in  the 
structure. 

The  type  of  loading  is  specified  by  one  of  the  parameters. 
COND,  ZIMP,  PRLC,  or  SRLC.  COND  is  used  to  specify  the  segment  conduc- 
tivity in  MHOS/METER.  ZIMP  is  used  to  specify  a lumped  load  resistance 
and  reactance  in  ohms.  The  PRLC  and  SRLC  parameters  permit  loading  with 
parallel  or  series  RLC  circuits.  The  values  of  R,  L,  and  C per  meter 
are  contained  in  the  parameter  list  in  that  order.  The  units  of  R,  L, 
and  C for  the  PRLC  and  SRLC  options  are  ohms,  millihenries,  and  microfarads 
respectively.  The  equivalent  circuits  are  illustrated  below: 


SRLC 
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ZLOADS  (Concluded) 


The  TAGS/SEGS  item  is  used  to  identify  those  segments  to 
be  loaded.  Use  of  the  TAGS  option  results  in  all  segments  which  have 
the  tags  specified  being  loaded.  Use  of  the  SEGS  option  limits  the 
loading  to  only  those  segments  specified.  The  integer  list  in  the  TAGS 
or  SEGS  item  may  contain  consecutive  integers  separated  by  a minus  sign. 
In  this  case,  all  elements  from  the  first  integer  to  the  last  are 
effectively  specified. 

Multiple  ZLOAOS  commands  are  permitted.  In  order  to  be 
effective,  the  ZLOAOS  command  must  occur  before  the  ZGEN  command. 

Example: 

ZLOADS  FCPLOD  GMDATA  = FCP747,  PRLC  = 5,  13,  21, 

SEGS  -1,5,  7-23,  ^7 

This  command  causes  the  structure  FCPT^  to  have  a PRLC 
load  applied  to  segments  1 , 5,  7,  8,  9,  ...,  21  , 22,  23,  and  1*7  with 
R * 5 ohms,  L = 13  mH,  and  C = 21  pF. 

Note:  The  ZLOADS  card  must  precede  the  ZGEN  card  since 

this  is  a required  item  for  input  on  the  latter  card. 


2. 


Geometry  Input  Language  Processor 

The  function  of  the  GIP  (Geometry  Input  Processor)  is  to 
translate  the  user's  inputs  related  to  structure  geometry  into  a data 
set  which  may  be  operated  on  by  an  impedance  matrix  generator  to  provide 
the  impedance  matrix  of  the  structure  under  analysis.  The  GIP  is  entered 
on  encountering  the  GMDATA  command  in  the  command  language  input  stream. 
It  is  a re-entrant  processor  in  that  it  may  be  called  several  times, 
either  to  extend  a previously  generated  geometry  data  set  or  to  create  a 
new  geometry  data  set.  The  attributes  of  the  geometry  data  set  are 
assigned  by  the  GIP.  On  completion  of  the  geometry  processing,  all  data 
are  written  out  to  a peripheral  storage  device. 

The  user  inputs  to  GIP  consist  of  BCD  records  (card  images)  in 
which  the  first  non-blank  field  is  an  alphanumeric  code  designating  the 
type  of  data  contained  in  the  record.  The  data  following  the  type  code 
must  be  separated  by  blanks  or  commas.  Blanks  embedded  within  fields 
are  not  allowed.  A field  is  therefore  defined  as  a contiguous  group  of 
characters  which,  when  interpreted,  correspond  to  a data  requirement  of 
the  record  being  processed.  Text  following  a $ is  regarded  as  a comment 

and  is  ignored.  There  are  a maximum  of  256  fields  per  command.  This 

does  not  include  comment  fields  or  commas  since  these  are  not  processed. 
Continuation  cards  are  indicated  in  the  following  ways.  First,  when  a 
card  ends  in  a comma,  the  next  card  is  read  as  a continuation  and  must 
have  a continuation  character  in  column  1.  Secondly,  any  card  which 
has  a continuation  character  in  column  I is  assumed  to  be  a continuation 

of  the  previous  card.  There  is  no  limit  on  the  number  of  continuation 

cards  except  that  dictated  by  the  limit  of  256  fields.  The  continuation 
character  and  its  definition  are  the  same  as  described  in  section  C. 

The  type  codes  and  their  meaning  which  are  currently  allowed 

are: 
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Type  Code 

Def ini t i on 

AT 

Attach 

CE 

Combine  Elements 

CP 

Connect  Point 

CS 

Coordinate  System 

DE 

Define  End 

OF 

Def i ne 

END 

End 

MP 

Multiple  Points 

PT 

Point 

RA 

Rad  i i 

RF 

Reflect 

RN 

Re-number 

RT 

Rotate 

SC 

Scale 

WR 

Wi  re 

XL 

Translate 

The  input  record  image  and  use  of  each  of  these  types  is  presented  in 
the  following  section. 


General  guidelines  for  wire  modeling  include  the  following: 

1.  Segments  must  be  short  compared  to  one  wavelength.  Lengths 
of  0.1  X should  be  adequate  for  most  purposes,  'or  wire  grids  with 
square  mesh,  good  results  have  been  obtained  with  lengths  up  to  0.1*t  X. 
(See  GEMACS  Engineering  Manual  , volume  II,  section  D.3.) 

2.  Actual  wires  should  be  modeled  with  the  actual  radius.  Grid 
models  should  use  a wire  radius  about  one-fifth  of  the  segment  length 
in  regions  of  square  mesh.  (See  GEMACS  Engineering  Manual,  volume  II, 
section  D.3,  for  more  detailed  comments.) 

3.  Grid  mesh  circumferences  should  not  greatly  exceed  0.5  X. 
Larger  circumferences  lead  to  loop  resonances  and  poor  results. 

U.  Segments  with  lengths  differing  by  more  than  a factor  of  two 
should  not  be  joined.  Small  angles  (less  than  about  20°)  between  joined 
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segments  should  be  avoided.  Unjoined  segments  should  be  separated  by  a 
segment  length  or  more.  The  maximum  number  of  segments  commonly  joined 
is  limited  to  50.  Segments  are  considered  to  be  joined  when  their  end 
points  are  separated  by  ZERO,  a parameter  set  in  a data  statement  in 
subroutine  BLKDAT.  The  value  of  ZERO  should  be  set  in  the  code  by  the 
user  according  to  his  needs  and  the  limits  of  precision  imposed  by  his 
machine.  It  is  computed  using  the  following  formula: 

ZERO  - 1/2  x 

where  m is  the  number  of  bits  in  the  mantissa  of  the  computer  system. 

5.  The  maximum  number  of  points,  segments,  defined  elements,  etc. 
that  can  presently  be  input  for  the  geometry  is  discussed  in  section  E.2 
of  this  volume. 

6.  The  renumbering  command  ( RN ) permits  the  user  to  specify  the 
geometry  in  the  most  convenient  manner  available  and  to  subsequently 
renumber  the  wire  segments  to  locate  the  near-neighbor  interactions  close 
to  the  diagonal  of  the  interaction  matrix.  The  interaction  terms  between 
the  il  and  j*^  segments  will  be  the  (ij)  and  ( j i ) matrix  elements.  If 
the  bandwidth  chosen  ism,  then  if  |i-j|  > m,  the  interaction  of  ith  and 

j segments  will  not  be  included  in  the  band.  Too  many  (an  as  yet 
unquantified  number)  large  interactions  omitted  from  the  band  will  cause 
the  BMI  solution  technique  to  fail  to  converge.  Therefore,  numbering 
the  problem  such  that  near  neighbors  have  approximately  equal  numbers 
will  cause  large  interactions  to  occur  in  the  band.  However,  too  many 
small  coherent  interactions  outside  the  band  may  also  cause  the  BMI 
solution  technique  to  fail  to  converge. 

I L I : 
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3 • Geometry  Input  Language  Commands 

The  general  form  of  the  commands  available  to  the  user  is: 

TYPE  PI,  P2 , P3,  

where  TYPE  is  one  of  the  type  codes  listed  in  section  2.  PI,  P2,  P 3 are 
the  ordered  parameter  fields  required  or  used  in  the  processing  of  the 
command  specified.  The  parameters  may  be  separated  by  a comma  or  a 
blank.  The  basic  geometrical  elements  in  the  GIP  are  points  and  line 
segments.  In  addition,  points  and  line  segments  may  belong  to  larger 
groups.  For  points,  the  only  larger  group  is  referred  to  as  a DF  NAME 
(Defined  Element)  and  reference  to  a DF  will  automatically  reference  all 
of  the  points  within  the  element.  Line  segments  may  also  belong  to  a 
group  identified  by  a tag  number  in  addition  to  a line  segment  number. 

The  former  method  (DF)  is  preferred  due  to  programming  considerations. 
Thus,  the  user  may  reference  points,  line  segments,  or  a group  of  points 
and/or  tine  segments.  At  present,  there  is  no  way  to  reference  individual 
line  segments  unless  they  are  part  of  a group;  however,  they  may  be  the 
only  element  of  the  group.  Whenever  an  element  is  operated  on  to  form  a 
new  element,  the  known  attributes  of  the  source  element  are  automatically 
given  to  the  new  element  with  the  exception  of  group  membership.  This 
attribute  will  also  be  associated  if  the  group  has  not  been  closed  by  a 
DE  (Def  ine  End)  command.  To  the  GIP,  the  attributes  of  points  are: 

1.  Point  number. 

2".  Point  location. 

3.  Group  membership. 

The  attributes  of  a line  segment  are: 

1.  Segment  number. 

2.  Segment  tag. 

3.  Location  of  end  points. 

**.  Group  membership. 

5.  Radius  of  wire  segment. 

6.  Segment  connection  data. 

- 
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In  the  discussion  of  the  commands  that  follow,  it  must  be  remembered 
that  the  parameter  fields  are  ordered.  This  is  in  contrast  to  the  parameter 
fields  of  the  IIP  which  were  keyword  indexed  to  achieve  order  independence. 
Keywords  are  not  used  in  the  GIP  in  order  to  achieve  a more  succinct  input. 

It  should  also  be  noted  that  some  of  the  commands  have  parameter 
fields  that  may  be  defaulted.  An  example  of  this  is  the  connect  points 
(CP)  command.  In  general,  for  a command  of  the  form 

TYPE  PI,  P2,  P3,  PA,  P5 

in  which  P3,  PA,  and  P5  may  be  defaulted,  it  must  be  kept  in  mind  that 
there  is  a difference  between  a zero  field  and  a null  field.  Defaulted 
fields  are  indicated  by  a null  field,  and  defaults  can  be  achieved  only 
from  right  to  left.  To  default  P5,  both  P3  and  PA  must  be  specified. 

To  default  PA,  only  P3  must  be  specified,  while  P5  may  be  specified 
only  if  desi red. 


56 


(PTI  (n  I 

AT  TG  , n , NCS 
| DF  ) ( name  ) 


Parameter 


Def i ni tion 

Attach  operation  code. 

Point,  tag,  or  defined  element  to  be 
operated  on. 


An  integer  for  points  or  tag  elements;  the 
element  name  for  defined  elements. 

Integer  identifier  of  previously  defined 
coordinate  system  to  which  the  element  is  to 
be  attached. 


This  command  results  in  a group  of  points  and/or  segments  to  be 
translated  and  rotated  to  origin  of  the  coordinate  system  specified. 

No  new  elements  will  be  generated.  This  allows  the  user  to  input  ele- 
ments in  local  systems  and  then  relocate  them  to  their  actual  position. 
Examples : 

AT  PT  10  3 

This  would  result  in  the  coordinates  of  point  10  being  changed  to 
those  it  should  have  after  being  relocated  to  the  coordinate  sys- 
tem 3.  If  point  10  originally  had  x,  y,  z coordinates  (0,0,0)  and 
coordinate  system  3 were  located  at  (10,0,0)  with  regard  to  the 
global  system,  then  point  10  would  have  (10,0,0)  as  its  coordinates 
after  the  operation. 

AT  DF  SPHERE  2 

All  elements  of  SPHERE  would  have  their  coordinates  modified  to 
those  they  would  have  if  they  had  originally  been  defined  in  coor- 
dinate system  2. 
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CE 


Combine  Elements  Operation 

CE  namel , name2,  name3»-*- 
Def in i t ion 

Combine  elements  code. 

Name  by  which  resultant  group  will  be 
known . 

Names  of  elements  to  be  combined  into 
element  name.  Note  that  these  elements 
must  have  been  generated  by  a Define 
Element  operation  and  will  not  be  avail- 
able under  their  original  names  after  this 
operation. 

!f  the  user  has  several  elements  that  have  been  defined  by  a Define 
Element  operation,  he  may  combine  them  into  one  element  with  this  operation. 
This  is  useful  when  a user  has  a collection  of  generic  shapes  and  he 
puts  them  together  to  form  another  object.  He  may  then  combine  all  of 
the  elements  under  one  name  for  ease  of  future  reference. 

Example : 

Assume  all  previous  data  are  present. 

AT  DF  BOOM  3 

AT  DF  DISH  1 

CE  SATLIT  CYLNDR  DISH  BOOM 

AT  DF  SATLIT  5 

Coordinate  systems  3 and  1 may  have  been  defined  such  that  the 
first  two  AT  commands  move  elements  BOOM  and  DISH  to  locations  on 
element  CYLNDR.  Then  CYLNDR,  DISH,  and  BOOM  were  combined  into 
element  SATLIT  and  the  resultant  element  positioned  at  coordinate 
system  number  5.  As  seen,  this  has  eased  the  input  of  geometry 
considerably  when  the  relative  locations  of  defined  elements  are 
known  or  easily  calculated.  If  the  user  wanted  to  define  the 
members  of  BOOM,  DISH,  and  CYLNDR  in  coordinate  system  5,  a con- 
siderable amount  of  precomputation  would  have  been  required  if  the 
elements'  dimensions  were  on  separate  drawings. 


Parameter 

CE 

namel 

name2  | 
name3 i 
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CP 


Connect  Points  Operation 


CP  N I N2  [NSEC.]  [NTAG]  [NRAD] 


Parameter 

Def ini tion 

CP 

- 

Connect  point  code. 

N1 

- 

Integer  number  of  first  point. 

N2 

- 

Integer  number  of  second  point. 

NSEG 

Number  of  segments  to  be  generated  between 
N1  and  N2.  (Defaul t=last  NSEG  parameter 
from  any  previous  operation.) 

NTAG 

Tag  number  identifying  all  segments  between 
N1  and  N2.  (Defaul t=last  NTAG  parameter 
from  any  previous  operation.) 

NRAD 

Integer  index  to  radii  table  entry. 

(Defaul t“last  NRAD  entry  from  any  previous 
operat ion . ) 

After  the  user  has  defined  the  points  N1  and  N2,  this  operation 
will  connect  NSEG  segments  between  these  points.  Each  segment  generated 
will  have  a TAG  number  specified  by  NTAG  and  a radius  retrieved  from  the 
NRAD  entry  of  radii  table.  The  default  values  for  NSEG,  NTAG,  and  NRAD 
are  those  values  left  over  from  any  previous  operation  for  which  whey 
were  defined.  This  implies  that  they  must  be  defined  on  the  first 

operation  which  requires  them.  Note  that  a zero  is  different  than  a 
null  field.  Default  values  are  implied  by  a null  field.  This  implies 
that  fields  are  only  defaulted  from  right  to  left.  That  is,  if  you 
wish  to  change  only  the  NRAD  parameter,  both  NSEG  and  NTAG  must  be 
specified.  However,  if  you  wish  to  change  the  NTAG  field,  only  NSEG 
must  be  specified. 
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CP  (Concluded) 


Examples: 

CP  12305 
or 

CP  1,2,3, 0,5 

This  would  result  in  generating  3 wire  segments  from  point  1 
to  point  2.  They  would  have  a TAG  of  0 and  a radius  extracted 
from  the  fifth  radii  entry. 

CP  1 4,  ,1,3 

Assuming  the  first  example  preceded  this  operation,  three  more 
segments  would  be  generated  from  point  1 to  point  4 with  a TAG 
of  I and  radius  extracted  from  the  third  radii  entry. 
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Coordinate  System  Specifica t i on 


CS  NCS  XC  , YC  , ZC  , RX  , RY  , RZ 


Parameter 


Def i n i t i on 

Coordinate  system  code. 

Unique  integer  identifier  for  this 
system. 

(x,y,z)  location  of  coordinate  system 
origin. 

Rotation  angles  in  degrees  about  the  x 
y,  and  z axis  of  the  global  coordinate 
system. 


This  card  permits  the  user  to  specify  additional  coordinate 
systems.  The  NCS  field  on  other  inputs  reference  the  coordinate  system 
identified  by  this  number.  When  the  NCS  parameter  is  specified  on  other 
inputs,  the  transformation  from  or  to  this  coordinate  system  will  be 
made.  Tills  card  must  precede  all  cards  referencing  ll.ic  NCS. 

EXAMPLE: 


CS  3 0.0  2.0  1.0  30.0 


DE 


Parameter  Def ini tion 

DE  - Define  end  code. 

This  operation  ends  or  closes  the  group  identified  in  the 
current  Define  Element  (DF)  operation.  The  group  may  not  be  extended  except 
by  a CE  operation.  All  points  and  wire  segments  generated  since  the  last 
DF  operation  belong  to  the  group  identified  by  the  DF  name.  Points  in 
this  group  may  be  referenced  without  regard  to  group  membership,  however, 
the  segment  data  may  only  be  referenced  by  identifying  the  group.  It  is 
advisable  not  to  generate  points  under  a DF  operation  since  the  storage 
available  for  points  is  more  restricted  than  that  for  segments  and  opera- 
tions performed  on  the  DF  element  will  generate  more  points  which  are  not 
usually  required  (see  the  example  for  the  DF  operation). 


DF 


Define  Element  Operation 

DF  name 

Parameter  Def i ni t ion 

DF  - Define  element  code. 

name  - A 6 character  or  less  identifier,  must 

begin  with  alpha  character,  but  can 
include  integers. 

All  points  and  segments  generated  between  this  input  and  the 
next  DE  input  will  belong  to  the  group  "name."  Nested  DF's  are  allowed. 
Note  that  while  points  may  belong  to  a group,  they  may  still  be  referenced 
individual ly. 

Examples : 

DF  BOX 

PT  1 1 00 

PT  2 0 1 0 

PT  3 -I  0 0 
PT  I)  0-1  0 

CP  1,  2,  1,  0,  1 
CP  2,  3 
CP  3,  4 
CP  4,  l 

I 

DE 

AT  DF  BOX  l 

Points  1,  2,  3,  and  4,  and  segments  generated  in  connecting 
those  points  are  identified  as  belonging  to  BOX.  All  of  these  segments 
are  then  moved  to  coordinate  system  1.  I f an  operation  was  performed  on 
BOX  which  involved  generation  of  additional  elements,  the  points  belong- 
ing to  BOX  would  also  be  used  as  sources  for  additional  points.  For 
this  reason,  use  of  points  in  a defined  element  should  be  avoided  when- 
ever possible,  since  the  storage  available  for  points  is  more  restricted 
than  that  for  segments. 
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END 


End  of  Geometry 
END 


Parameter  Def ini tion 

END  - End  of  current  geometry  designator. 

This  card  causes  the  GIP  to  stop  reading  input.  It  will  then 
look  for  wire  junctions,  identify  all  multiple  segments,  print  out  the 
point  table  and  segment  data  set,  and  write  the  segment  data  set  to  the 
user  specified  data  set. 

Multiple  segments  are  defined  as  those  segments  lying  on  an 
axis  of  rotation  or  in  a plane  of  reflection.  They  are  identical  segments 
with  the  same  end  points  as  the  generating  segment.  The  generated  seg- 
ments do  not  enter  into  the  impedance  matrix  calculation,  and  they  are 
identified  in  the  segment  data  output  by  a zero  in  the  1SEG  column. 
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MP 


Multiple  Point  Connection  Operation 


MP  NPTS,  NPI , NP2,  NP3,  ....  NPNPTS,  [NSEG,]  [NTAG,]  [NRAD] 


Parameter 


Def ini t ion 


MP 

NPTS 


NPI 

NP2 


NPNPTS) 
NSEG 


NTAG 


NRAD 


Multiple  point  connect  code. 

Integer  value  of  the  number  of 
points  connected. 


Integer  identification  of  points 
to  be  connected.  There  must  be 
NPTS  of  these  values. 


Number  of  segments  between  each 
pair  of  points.  There  will  be 
(NPTS- 1 ) *NSEG  segments  generated. 
(Default  NSEGHast  NSEG  value  from 
any  previous  entry.) 

Integer  tag  number  identifying  all 
segments  generated.  (Default  NTAG= 
last  NTAG  value  from  any  previous 
entry. ) 

Integer  value  of  location  of  wire 
radius  in  radii  table.  (Default 
NRAD=last  NRAD  value  from  any  pre- 
vious entry.) 


When  the  user  has  generated  a set  of  points  to  be  connected 
with  an  equal  number  of  segments,  this  card  permits  that  to  be  done. 
There  is  no  restriction  on  the  location  of  the  points  and  NFTS  must  be 
greater  than  1. 

Examples : 

MP  61  37  10  5*4201 

This  card  would  connect  points  1,  3,  7,  10,  5,  and  4 with  a 
wire  whose  radius  is  stored  in  the  first  entry  of  the  radii 
table.  There  would  be  two  segments  between  each  pair  of 
points  and  all  segments  would  have  a tag  of  zero. 
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PT 


Point  Specification 


PT  NPT  X Y Z [NCS] 


Par  ameter 


Def ini tion 


PT 


Point  specification  code. 


NPT 

X 
Y 
Z 

NCS 


Integer  identifier  of  this  point. 
This  must  be  a unique  number. 

(x,y,z)  location  of  point  with 
regards  to  NCS. 

Integer  identification  of  coordinate 
system  for  (x,y,z).  (Default  NCS= 
last  defined  NCS  entry.) 


This  input  Is  used  to  specify  points.  The  identifier  NPT  must 


be  globally  unique  (not  simply  unique  to  coordinate  system  NCS).  The 
point  (x,yfz)  will  be  transformed  from  coordinate  system  NCS  before  it  is 
stored  if  NCS  is  non-zero. 


Examples 

PT  3 1.  1.  1.  10 


This  defines  point  number  3 as  being  at  (l.fl.,l.)  in  coordi- 
nate system  10.  The  point  will  be  transformed  to  the  global 
coordinate  system  before  being  stored. 
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RA 


Radii  Specifications 


Rl,  R2,  R3 Rn 

Definition 

Radii  table  entry  code. 

Floating  point  values  of  the  radii 
entries.  The  radii  table  will  be 
loaded  sequentially  with  these  values. 

Instead  of  the  user  appending  the  wire  radius  information  to 
each  input  that  generates  a wire  segment,  he  simply  refers  to  an  entry 
in  the  radii  table.  These  entries  are  loaded  sequentially  from  these  RA 
inputs.  Currently  n £ 10. 

Examples: 

RA  .001  .125  .0067 

RA  .025  1.00  .0003 

Load  radii  entries  1 through  6 with  the  encountered  values. 


Parameter 

RA 


RF 


Reflect  Operation 


RF 


, Al,  A2,  A3,[lNCTAG,][NCS] 


Parameter 

RF 


Al 


A2 

A3 


Def ini tion 

Reflection  operation  code. 


Two  letter  code  to  indicate  point, 
tag  or  defined  element  is  to  be 
operated  on. 


For  PT  and  TG,  the  integer  identifier, 
for  DF,  the  alphanumeric  name  of  the 
defined  element. 

Alpha  designation  (x,y,  or  z)  of  axis 
along  which  first  reflection  will 
occur. 

Alpha  designation  of  axis  along 
which  second  reflection  will  occur. 

Alpha  designation  of  axis  along 
which  third  reflection  will  occur. 


INCTAG  - Tag  increment  parameter.  Segments 

generated  by  first  reflection  will 
have  tags  incremented  by  INCTAG. 
Segments  generated  by  second 
reflection  will  have  tags  incre- 
mented by  2*  (INCTAG)  and  segments 
generated  by  third  reflection  will 
have  tags  incremented  by  A*  (INCTAG) 
(Default  INCTAG-0.) 

NCS  - Integer  identifier  of  coordinate 

system  in  which  reflection  is  to  take 
place.  (Default  NCS=last  NCS  value.) 


This  card  causes  the  symmetry  operation  of  reflecting 
through  the  plane  normal  to  the  axis  specified.  Segments  in  the  planes 
of  reflection  are  allowed.  They  are  identified  as  such  and  will  not 
enter  into  the  impedance  matrix  calculation.  If  the  reflection  operation 
takes  place  on  an  element  currently  being  defined,  all  segments  generated 
will  be  associated  with  the  element  being  defined. 
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RF  (Continued) 


Examples : 

I.  RF  DF  WHEEL  X 10 

This  will  cause  all  points  and  segments  associated  with  WHEEL 
to  be  reflected  through  the  YZ  plane  and  the  tags  to  be  incre- 
mented by  10. 

DF  WHEEL 
PT  1 0.  0.  0. 

PT  2 1.  0.  0. 

RT  PT  2 2 90 
DE 

RF  DF  WHEEL  X Y 10 

This  would  generate  the  following  points  in  the  positions 
indicated.  Note  that  points  in  the  plane  of  symmetry  are 
regenerated . 


This  is  strictly  for  the  user's  convenience  in  keeping  up  with 
the  point  identifiers.  NPTS  will  result  in  2r,*NPT$  points 
incremented  sequentially  where  n is  the  number  of  planes  of 
reflection.  The  additional  commands: 
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RF  (Concluded) 


V 


MP 

13: 

, 1,  2,  3,  1, 

"1, 

1, 

0,  1 

CP 

11, 

O 

o 

CP 

3, 

*♦,  l,  0,  1 

CP 

7, 

6,  1,  0,  1 

CP 

15, 

, 16,  1,  0,  1 

would  generate  the  outline  of  a spoked  wheel. 

The  user  could  have  substituted  5,  9,  or  13  for  point  1,  10 
for  2,  8 for  4,  14  for  6,  and  12  for  16  with  the  same  result. 
2.  DF  WHEEL 

PT  1 0.,  0.,  0. 

PT  2 1.,  0.,  0. 

RT  PT  2 1 45. 

PT  4 0.,  I.,  0. 

MP  6 1.,  2.,  3-,  1,  4,  3,  1,  0,  1 

DE 

RF  DF  WHEEL  X Y 5 

This  example  would  generate  not  only  identical  points,  but 
identical  wire  segments.  These  would  eventually  be  detected 
during  the  search  for  multiple  junctions  and  flagged  as  null 
segments . 
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RN 


Renumber  Operation 


Ril  II,  12,  13,  -In,  in+2,  .... 


Parameter 


Def ini tion 


RN 


1 1 


i 


Renumber  operation  code. 

Integer  numbers  to  control  the 
resequencing  of  wire  segment 
numbers. 


When  using  the  banded  matrix  iteration  technique,  it  may  be 
important  to  have  the  wire  segments  numbered  correctly  in  order  for  the 
system  to  converge.  When  an  RN  operation  is  encountered,  the  wire 
segments  which  have  been  generated  since  the  last  RN  are  renumbered 
according  to  the  sequence  specified  by  the  integers  on  the  RN  input. 

The  resequencing  will  start  with  the  first  segment  generated  since  the 
last  RN  operation.  The  segment  numbers  are  changed  to  correspond  to  the 
integers  on  the  input  directive.  When  a negative  integer  is  encountered , 
the  sequence  number  of  the  next  wire  segment  will  be  the  absolute  value 
of  the  negative  integer  and  the  sequence  numbers  will  be  incremented  by 
1 until  the  number  of  segments  identified  by  the  next  input  field  have 
been  sequenced. 

Examples: 

Suppose  the  user  has  generated  segments  1 through  10  and 
wishes  to  renumber  the  segments: 

3N  2 4 -5  , 5 , I , 3 , 10 

Old  Segment  Numbers 
New  Segment  Numbers 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

2 

4 

_5 

6 

7_ 

8 

2 

1 

2 

10 

! 

1 
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RT 


1 


ion  Operation 

I ADD,  RX,  RY,  RZ,  [l  NCTAG  ,][NCS] 

Def in i t ion 

Rotation  operation  code. 

Two  letter  code  designating  point, 
tag  or,  defined  element  to  be 
rotated. 

For  PT  and  TG,  n is  the  integer 
identifier;  for  DF,  "name"  is  the 
alphanumeric  name  of  the  defined 
element . 

Integer  indicating  the  number  of 
additional  elements  to  be  generated. 

Rotation  angles  in  degress  about  the  x, 
y,  and  z axis  in  the  coordinate  system 
NCS.  (positive  counterclockwise) 

Tag  increment  for  each/^dd i t ional 
element.  (Default=0.) 

Coordinate  system  identifier  (Default 

NCS  = last  NCS  specified) 

The  rotation  operation  can  be  used  to  generate  objects  which 
have  axes  of  revolution.  If  the  segments  to  be  rotated  are  members  of 
a defined  element,  the  segment  numbers  of  the  original  segments  increment 
by  the  number  of  segments  in  the  original  defined  element  for  each  additional 
element.  If  the  DF  operation  is  still  in  effect,  all  segments  and 
points  generated  will  be  members  of  the  element  being  defined. 


Examples: 

RA 

.01 

DF 

CONE 

PT 

1 0., 

o.. 

0. 

PT 

2 1., 

0., 

10. 

FT 

3 0., 

0., 

10. 

Rotat 


Parameter 

RT 


INCTAG 

NCS 
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RT  PT  2,  I,  0,  0,  45.  $ ROTATE  PT2  45°  AROUND  Z AXIS  GENERATE  PT4 

MP  3 3 2 4 I 0 I $ CONNECT  PTS,  3,  2,  4 

CP  2 1 10  $ CONNECT  PTS  1 and  2 WITH  10  SEG  OF  RADIUS  .01 

RT  DF  CONE  7 0,  0,  315,  $ ROTATE  BASIC  SEGMENT  TO  COMPLETE  CONE 
DE 

The  RA  command  establishes  the  radius  of  all  the  segments  gen- 
erated. This  is  followed  by  the  define  element  command.  All  points  and 
segments  generated  from  here  to  the  next  define  end  card  will  belong  to 
the  structure  called  CONE.  The  next  3 cards  define  the  basic  points, 
the  result  of  which  is  shown  in  figure  4a.  Then  point  a is  rotated  around 

the  Z-axis  to  generate  point  4.  The  next  2 cards  connected  these  four 

points  to  define  the  basic  structure  of  the  element  CONE.  This  is  shown 
in  figure  4b.  This  basic  element  is  then  rotated  around  the  Z-axis  and 
regenerated  seven  more  times  to  define  a wire-gridded  cone.  The  DE  card 
then  closes  the  generation  cards  for  CONE. 


hLlTiJUMirri; 


sc 


Scale  Parameter 


SC 


Parameter 


value 


Is) 


Def ini 1 1 on 


Scale  specification  code. 

Value  is  the  numeric  value  of  the 
scale  factor  in  meters/unit.  FT, 

IN,  CM  are  2 letter  codes  that  auto- 
matically scale  the  data  from  feet, 
inches,  and  centimeters  to  meters. 

(Default  value=!) 

The  GEMACS  code  uses  the  MKS  system  of  units.  Unless  specified 
otherwise,  all  geometry  input  is  assumed  to  be  in  meters.  When  an  SC 
input  is  read,  all  input  until  the  next  SC  input  is  scaled  to  the  new 
value. 


Example: 

SC  FT 

All  subsequent  data  would  be  converted  from  feet  to  meters 
before  being  stored. 
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< 

i 


I 


t 


WR 


Wire  Input 

WR  Xl,  Y 1 , Zl,  X2,  Y2 , Z2 , [NSEG , ] [NTAG , ] [NRAD , ] [NCS] 


Parameter 

WR 


NSEG 


Def ini tion 

Wire  input  designator. 

Coordinates  of  what  will  be  con- 
sidered the  negative  end  of  the 
wire  segment. 

Coordinates  of  what  will  be  con- 
sidered the  positive  end  of  the 
wire  segment. 

Number  of  segments  the  wire  is  to 
generate.  (Default  to  previous  NSEG 
entry  of  any  operation.) 


NTAG  - Integer  tag  identifier  of  each 

segment.  (Default  to  previous 
NTAG  entry  of  any  operation.) 

NRAD  - The  location  of  the  radius  of  each 

segment  in  the  radii  table.  (Default  to 
previous  NRAD  entry  of  any  operation.) 

NCS  - Integer  identifier  of  reference 

coordinate  system.  (Default  to 
previous  NCS  entry  of  any  operation.) 

This  is  another  method  of  inputting  wire  segment  data  into 
GEMACS.  It  will  generate  NSEG  segments  between  (XI,  Y1 , Zl)  and  (X2,  Y2, 
Z2)  with  tag  identifiers  of  NTAG,  of  radius  specified  by  NRAD,  and  if 


NCS  is  not  equal  to  zero,  (XI,  Yl,  Zl)  and  (X2,  Y2,  Z2)  will  be  the  end 


points  in  coordinate  system  NCS. 

Example: 

WR  1.63,  2.1*7,  3.67,  26.1*,  16.3,  1*3.,  10,  ,1,1 

This  would  generate  10  segments  with  the  default  tag  number  and 
with  the  radius  specified  by  the  first  radius  entered  previously. 
The  end  points  would  be  transformed  from  coordinate  system  1 
before  storing  segment  end  points. 
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XL 


Translation 

Operator 

PT ) 1 

1 n ) 

XL  )TG  , 

| n , IADD, 

DX,  DY,  DZ,  [INCTAG ,][NCS] 

( OF  ) | 

( name) 

Parameter 

Def i n i t i on 

XL 

- 

Translation  operation  code. 

(PT) 

- 

Two  letter  code  designating  point, 

TG 

tag,  or  defined  element  to  be 

H 

translated . 

in  ) 

- 

For  PT  and  TG,  n is  the  integer 

n ! 

identifier;  for  DF,  "name"  is  the 

J name) 

alphanumeric  name  of  the  defined 
element. 

IADD 

/ V 

- 

Integer  indicating  the  number  of 
additional  elements  to  be  generated 

DX 

- 

Incremental  translation  vector. 

DY 

1 DZ  ) 

INCTAG 

- 

Tag  increment  for  each  additional 
element.  (Default=0.) 

NCS 

- 

Coordinate  system  in  which  transla- 

tion  is  to  take  place.  (Default= 
last  NCS  value  used.) 

The  translation  operation  will  generate  IADD  additional  segments 
identical  to  the  segment  specified.  Each  segment  will  be  displaced  from 
the  original  segment  by  (DX,DY,DZ)  in  the  coordinate  system  indicated. 

If  IADD  is  zero,  the  element  is  simply  translated  to  a new  ocation. 

The  same  function  can  be  performed  by  defining  a coordinate  system  at 
the  new  location  and  performing  an  AT  (attach)  operation. 


Example: 
RA  .01 

PT 

1 0. 

0. 

PT 

2 0. 

1 . 

PT 

3 0. 

0. 
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XL 

(Conti nued) 

DF 

GRI 

D 

HP 

3 

3 1 2 

1 1 

XL 

DF 

GRID 

9 0.  1. 

WR 

o.. 

10.,  0. 

,0.  , 10.  , 1 . , 1 

XL 

DF 

GRID  9 

0.  ,0.  , 1 . , 1 . 

WR 

o., 

0.,  10. 

O 

o 

o 

o 

OE 

The  MP  input  would  create  segments  1 and  2 illustrated  in  figure  5(a). 
The  first  XL  operation  would  create  segments  3 through  20  and  the  WR 
operation  would  result  in  segment  21  of  figure  5(b).  The  second  XL 
operation  would  generate  segments  22  through  210  and  the  WR  operation 
would  close  the  grid  with  segments  211  through  220  as  illustrated  in 
figure  5(c).  Future  references  to  GRID  would  reference  segments  1 
through  220. 


D. 


GEMACS  APPLICATION 


Included  in  this  section  are  two  sample  runs  of  the  GEMACS  code. 
These  examples  are  meant  to  illustrate  the  salient  features  of  us i ng  the 
GEMACS  code.  The  first  example  involves  solving  for  a pair  of  centerfed 
dipoles  at  two  frequencies  corresponding  to  1/2  A and  1 A dipoles.  Far 
field  and  near  field  outputs  are  obtained.  Example  2 is  a checkpoint 
restart  of  example  1 with  additional  output  illustrating  the  use  of  the 
DEBUG  option.  Not  all  plots  are  reproduced  for  example  2 since  the 
plots  do  not  contribute  to  the  purpose  of  the  example. 

There  are  several  sequential  steps  involved  in  applying  the  GEMACS 
code  for  problem  solving.  These  steps  involve: 

(1)  Establishing  the  computer  requirements  and  resources. 

(2)  Defining  the  structure  to  be  analyzed  in  a form  allowing 
efficient  solution. 

(3)  Establishing  the  electrical  environment. 

(A)  Determining  a solution  technique. 

(5)  Requesting  outputs. 

Additional  features  of  the  code  are: 

(1)  Checkpoint  restart. 

(2)  Debug  capabi 1 i ty . 

(3)  Error  recovery. 

Each  of  these  topics  will  be  discussed  in  the  following  sections 
and  related  to  specific  portions  of  examples  1 and  2 which  follow. 

1 . Computer  Requirements  and  Resources 

The  detailed  computer  requirements  are  presented  in  section  E. 
In  general,  the  user  must  assure  that  enough  FORTRAN  logical  files  exist 
to  store  the  data  sets  generated  as  a result  of  direct  user  input  and 
those  generated  by  operations  on  the  data.  Explicitly,  the  GMDATA, 
BACSUB,  ZGEN,  VSRC,  ESRC , ZLOADS,  and  EFIELD  commands  will  each  generate 
a resultant  data  set.  The  DECOMP  and  SOLVE  commands  will  each  generate 
two  additional  data  sets  for  storing  the  lower  and  upper  triangular  com- 
ponents of  the  decomposed  matrix.  The  user  may  minimize  the  peripheral 
file  requirement  by  use  of  the  PURGE  operation  on  data  sets  no  longer 
required.  The  data  set  may  be  regenerated  at  a later  time;  as  in  a 
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LOOP/LABEL  set  of  instructions,  and  may  be  reassigned  to  another  avail- 
able logical  unit.  The  number  of  logical  units  available  is  specified 
by  use  of  the  NUMFIL  = n arithmetic  operation.  If  no  operation  is 
specified,  the  installation  default  is  assumed  (i.e.,  the  value  of  the 
variable  NFILES  in  subroutine  BLKDAT).  This  is  further  discussed  in 
section  E. 1 . 

In  order  to  make  use  of  the  checkpoint/restart  and  CPU  time 
limit  error  recovery,  the  user  must  specify  a time  limit.  This  is  done 
by  use  of  the  TIME  = n arithmetic  operation.  This  feature  requires  the 
presence  of  a FORTRAN  library  function  to  return  the  elapsed  CPU  time  as 
discussed  in  section  E.3*  When  this  feature  is  available  and  the  TIME 
= n statement  has  been  used,  GEMACS  will  automatically  terminate  when 
the  specified  time  limit  has  been  exceeded.  The  user  should  assure  that 
the  time  limit  specified  to  the  GEMACS  code  is  less  than  that  requested 
by  the  job  control  cards.  There  is  no  way  for  GEMACS  to  know  the  actual 
time  remaining.  Since  this  is  the  case,  GEMACS  could,  if  TIME  is  set 
less  than  the  value  of  the  control  card,  call  subroutine  ERROR  and  write 
a checkpoint  to  save  all  the  current  data.  If  this  is  not  done,  when 
the  time  on  the  control  card  is  reached,  the  computer  system  will  terminate 
the  uncompleted  run  and  the  user  will  need  to  start  from  the  beginning 
on  a subsequent  run. 

The  final  GEMACS  resource  required  by  the  user  is  the  presence 
of  a checkpoint  file.  This  is  accomplished  by  use  of  the  CHKPNT  command. 

If  a CHKPNT  command  is  present  in  the  input  stream,  the  availability  of 
the  checkpoint  file  is  established  during  execution.  This  allows  a 
checkpoint  to  be  written  in  the  event  of  an  internally  dete:ted  fatal 
error  or  an  attempt  to  exceed  the  specified  CPU  time  limit.  The  error 
may  occur  in  a command  prior  to  the  CHKPNT  command,  however,  the  avail- 
ability of  the  checkpoint  file  is  established  before  execution  begins. 

The  computer  resources  and  requirements  are  contained  in  cards 
|i*,  15,  and  52  in  example  I.  The  last  card  establishes  a checkpoint 
file,  and  the  NR  option  will  allow  GEMACS  to  write  a checkpoint  if  an 
internal  fatal  error  is  encountered. 

Example  2 does  not  contain  any  resource  cards,  whose  presence 
would  update  those  data  specified  in  example  1.  Consequently,  the  time 


81 


r 


statistics  for  the  second  example  will  be  added  to  those  of  the  first 
run.  Therefore,  both  examples  must  be  executed  within  the  time  limit 
specified  on  card  15  of  example  1.  If  not,  an  internally  generated 
fatal  error  will  occur. 

The  computer  resource  data  are  output  to  the  user  at  the 
beginning  of  the  execution  report.  They  are  given  in  the  following 
format : 


states  TAS<  EAfCjTiOV  bTARTtl)  C\  11/10/7!)  AT  l^.Ct.i.', 


NU'ToCR  OF  PERIPHERAL  FILES  AVAlLtfl-F  In 
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RUT  TIME  SET  TO  5.00 


CPU  MlVuTEb 


It  should  be  noted  that  the  "number"  specified  for  the  number 
of  peripheral  files  available  is  the  integer  of  the  highest-numbered 
contiguous  unit,  which  may  not  be  the  same  as  a number  count  of  files. 
This  is  due  to  the  fact  that  units  3 and  k are,  in  general,  not  required 
for  the  execution  of  GEMACS,  as  can  be  seen  from  table  3 in  section  E 
of  this  manual . 

When  it  is  time  for  a checkpoint,  either  as  a result  of  a 
command- level  CHKPNT  or  as  a result  of  a specified  elapsed  time  since 
the  beginning  of  program  execution,  the  following  printout  is  generated. 
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This  block  of  data  specifies  to  the  user  the  sequential  number 
of  the  checkpoint,  the  time  in  minutes  since  beginning  of  execution  at 
which  the  checkpoint  is  being  taken,  the  common  blocks  and  files  written 
out  to  the  checkpoint  tape  (along  with  the  number  of  records  for  the 
latter),  the  time  at  which  the  checkpoint  was  written,  the  time  it  took 
to  write  the  checkpoint,  and  the  cumulative  number  of  words  written  on 
the  checkpoint  tape  for  all  checkpoints  written  since  the  last  rewind 
command. 

2.  Structure  Representation 

GEMACS  is  a code  designed  primarily  for  the  analysis  of  elec- 
trically large  structures.  Relatively  small  structures  requiring  approx- 
imately 100  unknowns  will  also  be  solved  efficiently  and  standard  model- 
ing techniques  may  be  used.  However,  the  model  representation  of  large 
structures  requiring  the  use  of  the  BMI  solution  technique  imposes  some 
restrictions.  A detailed  collection  of  experience  gained  during  the 
development  of  BMI  is  presented  in  Volume  II,  GEMACS  Engineering  Manual. 
General  guidelines  are  presented  in  section  C.2.  The  renumbering  command 
(RN)  has  been  implemented  to  support  those  geometry  modeling  requirements 
peculiar  to  the  use  of  the  BMI  solution  technique.  Geometry  generation 
is  initiated  by  the  GMDATA  command.  Upon  processing  this  command,  the 
input  stream  following  the  first  END  card  is  read  as  geometry  data  and 
is  expected  to  conform  to  the  geometry  command  format  presented  in 
section  C.3.  The  presence  of  any  nongeometry  input  before  the  next  END 
card  will  cause  a fatal  error  and  subsequent  error  action  to  occur. 

There  are  installation  limits  on  the  number  of  wire  segments,  points, 
defined  elements,  and  coordinate  systems  available  to  model  a structure. 
These  are  discussed  in  section  E.2  of  this  manual.  Requirements  for 
expanding  or  contracting  these  parameters  are  also  discussed  in  section 
E.2. 

The  geometry  data  set  is  the  basic  source  of  data  for  many 
other  GEMACS  commands.  It  must  be  available  before  an  impedance,  excita- 
tion, load,  or  output  data  set  can  be  generated.  Additionally,  the 
accuracy  of  the  results  are  extremely  dependent  on  the  applicability  of 
the  structure  representation  for  the  analysis  being  performed.  Again, 
the  reader  is  urged  to  be  familiar  with  the  results  of  developmental 
efforts  presented  in  Volume  II,  GEMACS  Engineering  Manual. 
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Card  17  of  example  1 will  initiate  the  Geometry  Input  Processor. 
The  geometry  data  are  contained  in  cards  6^4  to  76.  In  general,  the 
radius  cards  are  input  first  listing  the  radii  of  the  wires.  Then,  for 
this  problem,  a point  is  generated  and  translated  to  the  location  of  an 
end  point  of  wire  1.  This  point  is  then  rotated  around  the  origin  to 
generate  the  end  points  for  the  second  wire  and  the  other  end  point  for 
the  first  wire.  The  results  of  these  operations  are  shown  in  figure  6a. 
The  end  points  are  then  connected  to  the  origin  to  generate  the  arms  of 
the  crossed  dipoles,  as  shown  in  figure  6b.  This  figure  also  indicates 
the  segment  numbering  on  the  arms. 

Then  the  arms  are  renumbered  to  spiral  outward  from  the  inter- 
section of  the  wires.  This  is  done  to  increase  the  efficiency  of  the 
BMI  solution  process  as  discussed  in  section  C.5  of  volume  II,  the 
engineering  manual.  The  renumbered  geometry  is  indicated  in  figure  6c. 

Once  GEMACS  has  processed  all  of  the  geometry  input,  determined 
connections  and  junctions,  and  converted  the  data  to  center  point  and 
direction  angle  format,  the  contents  of  the  segment  table  (SEGTBL)  are 
printed  out  in  the  following  format. 

Reading  the  columns  from  left  to  right,  the  following  informa- 
tion is  ava i lable: 

(1)  The  tag  number  for  each  segment. 

(2)  The  X-coord i nates  for  end  1,  center  point,  and  end  2 of  the 
segment. 

(3)  The  Y-coordinates  for  end  1,  center  point,  and  end  2 of  the 
segment. 

(A)  The  Z-coordi nates  for  end  1,  center  point,  and  end  2 of  the 
segment. 

(5)  The  radius  of  each  segment  in  meters. 

(6)  The  length  of  each  segment  in  meters. 

(7)  The  lowest  numbered  segment  connected  to  end  1 of  the  segment. 
The  preceding  negative  sign  would  indicate  end  1 of  the  segment 
making  the  connection,  while  no  sign  would  indicate  end  2 
being  connected  to  this  segment. 

(8)  The  segment  number.  A zero  in  this  column  would  indicate  that 
this  segment  is  identical  to  a preceding  segment  in  the  list. 
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(9)  The  lowest  numbered  segment  connected  to  end  2 of  this  segment. 

The  same  convention  regarding  the  negative  sign  applies  as  for 

end  l of  this  segment. 

3.  Electrical  Environment 

The  electrical  environment  of  the  structure  to  be  analyzed 
includes  the  effects  of  loads,  external  or  incident  fields,  voltage 
driven  or  antenna  source  segments,  and  the  ground  parameters. 

Once  a structure  has  been  defined  geometrically,  the  elec- 
trical parameters  affecting  its  response  to  an  external  field  or  voltage 
driven  element  may  be  specified.  There  are  three  user  definable  param- 
eters. These  are  the  frequency  (FRQ) , ground  conductivity  (COND),  and 
relative  dielectric  constant  of  the  ground  (EPSR) . 

The  frequency  may  be  specified  on  a ZGEN,  ZLOADS , ESRC,  or 
VSRC  command.  Alternately,  and  perhaps  more  directly,  it  may  be  set  by 
the  arithmetic  operation  FRQ  = MHz.  All  subsequent  electrical  functions 
will  use  the  last  value  specified  or  calculated  for  the  frequency.  In 
order  for  GEMACS  results  to  be  meaningful,  all  sources  must  be  at  the 
same  frequency. 

The  ground  environment  is  specified  by  the  COND  and  EPSR 
parameters  which  may  be  set  directly  in  an  arithmetic  operation  or 
specified  on  the  ZGEN  command  entry.  If  no  ground  parameters  are  spec- 
ified, a free  space  environment  is  assumed.  The  presence  of  a negative 
conductivity  (COND)  implies  a perfect  ground  and  the  value  of  EPSR  is 
ignored.  The  ground  environment  must  be  established  prior  to  the  gener- 
ation of  the  impedance  matrix  and  the  specification  of  field  sources. 
Failure  to  do  so  will  result  in  the  ground  interactions  and  reflections 
being  ignored. 

A detailed  discussion  of  the  ground  representation  and  com- 
putational approximation  may  be  found  in  section  B.2  in  Volume  II, 

GEMACS  Engineering  Manual  and  its  references.  The  primary  restriction 
imposed  by  the  ground  model  on  the  geometry  model  is  that  wire  segments 
should  not  be  at  acute  angles  to  the  ground  plane  when  their  midpoints 
are  less  than  a segment  length  from  the  ground  plane.  Antenna  source 
segments  connected  to  the  ground  plane  are  particularly  sensitive  to  the 
ground  model.  Inadequacies  of  the  geometry /ground  model  interaction 
will  usually  be  indicated  by  a negative  input  impedance  of  antenna 
source  segments  in  near  electrical  proximity  to  the  ground  plane. 
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GEMACS  employs  both  external  and  internal  excitation  of  struc- 
tures. The  external  excitation  includes  both  spherical  and  plane  ellip- 
tically  polarized  waves.  The  internal  excitation  is  specified  as  a 
voltage  applied  to  a wire  segment.  This  voltage  is  converted  to  an 
electric  field  at  the  segment  midpoint  using  a delta  gap  excitation  as 
discussed  in  volume  II.  All  segments  driven  by  a voltage  source  are 
considered  as  antenna  sources  and  as  such  will  have  the  power  and  impedance 
of  the  segment  computed  after  the  structure  currents  have  been  obtained. 
Multiple  sources  will  be  superimposed  if  they  have  the  same  frequency. 

The  structure  may  be  loaded  with  series  or  parallel  combina- 
tions of  resistors,  inductors,  and  capacitors.  All  ZLOAOS  commands  are 
cumulative  for  the  same  resultant  or  load  data  sets  for  a given  frequency. 
The  power  dissipated  in  all  loads  will  be  displayed  after  the  structure 
currents  have  been  obtained. 

In  example  1,  the  frequency  is  initially  set  at  300  MHz 
directly  in  an  arithmetic  operation  by  card  16.  After  the  fields  have 
been  calculated  at  this  frequency,  the  frequency  is  then  doubled  to  600 
MHz  at  card  53  by  another  arithmetic  operation.  Note  that  since  this 
card  is  within  a LOOP/LABEL  loop  it  is  executed  again  after  the  fields 
have  been  computed,  and  the  frequency  at  this  time  is  now  1200  MHz. 

Also  note  that  the  excitation  cards  2k  and  25  are  located 
within  this  same  loop.  The  first  command  places  a voltage  = 0.5  + jO.O 
on  segments  1 and  3 (figure  5c),  and  the  second  command  excites  segments 
2 and  k with  ■ 0.0  + j0.5.  All  of  these  excitations  are  placed  in 
the  file  ANTSRC.  When  executing  the  loop  the  second  time  the  file 
ANTSRC  is  reinitialized  to  zero  before  the  data  are  loaded  since  the 
frequency  has  changed  from  300  to  600  MHz. 

Due  to  the  nature  of  the  problem,  no  other  electrical  character- 
istics are  required  as  input.  However,  it  must  be  kept  in  mind  that  if 
the  structure  were  loaded,  the  ZL0ADS  card  must  precede  the  ZGEN  command. 

In  example  2 the  excitation  data  are  also  recomputed.  This  is 
not  strictly  necessary  since  the  field  on  the  excited  segment  is  com- 
puted using  the  physical  length  of  the  segment.  However,  recomputation 
is  required  if  the  driving  function  is  an  external  field  since  this  has 
a >trong  dependency  on  the  frequency. 
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In  the  case  in  which  both  external  and  internal  sources  are 
present  both  must  be  recalculated  since  entering  the  excitation  driver 
for  the  external  source  will  zero  out  the  previous  excitation  (due  to 
the  change  in  frequency)  and  therefore  automatically  wipe  out  the  internal 
source. 

GEMACS  will  list  out  the  frequency  at  which  the  analysis  is 
being  performed  as  well  as  any  ground  parameters  (none  for  this  example), 
the  excitation  driving  the  structure,  and  the  load  if  any  is  present. 

The  format  for  this  is: 


FREuUENCY  St!  To  300.  M£GA-<CRTi! 

tfAOLt.  Noth  .OVv  METtWS 


■XC!TE  GEC-ETWY  OATA  XGIPOu 

i*z iTATitN  vcltg-; 
eau  tj.7ion  data  amtspc 


AEAl  C0wP  .500  IMAb  COMP  0. 

excntc.  st&A 
1 3 

•XCMf.  CEG*E  T 5 V 3„TA  XD1°0i- 
exc: TATIS!)  VOi.TGE 
EXCITATION  OAT  A 0.1STC 


•orAu  comp  o.  imao  cov.p  .soa 

jxcirto  seos 
? * 


Once  the  electrical  environment  has  been  established,  the 
solution  for  the  electrical  currents  flowing  on  the  structure  at  the 
frequency  specified  may  be  obtained, 
i*.  Solution  Technique 

Once  the  impedance  matrix  [Z]  has  been  generated  in  response  to 
a ZGEN  command  and  the  structure  excitation  [El  is  complete,  the  solu- 
tion to  the  system  of  simultaneous  linear  equations  represented  in 
matrix  form  as: 

[Z]  [I]  - [E] 

may  be  obtained  using  either  full  matrix  decomposition  or  by  employing 
the  BMI  solution  technique.  The  choice  of  the  solution  technique  is 
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usually  dictated  by  the  size  of  the  problem  and  the  suitability  of  the 
geometry  model.  The  code  is  capable  of  performing  full  matrix  decomposi- 
tion, as  well  as  the  BMI,  to  obtain  the  solution.  The  first  method  is 
preferred  for  smaller  problems  (less  than  100  unknowns)  or  problems  that 
are  ill-posed  for  BMI  to  converge.  This  latter  condition  may  occur  when 
the  geometry  numbering  scheme  excludes  a fair  number  of  near-neighbor 
interactions  from  the  band  or  when  the  structure  has  a high  Q resonance 
near  the  specified  frequency.  Under  these  circumstances,  the  sensitive 
outputs  (source  impedance,  power)  may  be  considerably  in  error  due  to 
the  poor  condition  of  the  impedance  matrix.  This  will  generally  be 
indicated  by  a large  pivot  ratio  (greater  than  10**)  encountered  during 
decomposition.  The  implications  of  those  events  is  usually  the  failure 
of  the  iterative  scheme  to  converge  or  to  converge  very  slowly.  In 
these  cases,  the  SOLVE  command  or  a combination  of  the  LUD  and  BACSUB 
Commands  is  the  only  alternative  to  completely  redefining  the  problem. 
However,  it  may  occur  that  the  full  matrix  solution  will  result  in  the 
detection  of  a singular  matrix  due  to  the  lack  of  pivoting  in  the  current 
release.  When  this  occurs,  the  problem  is  not  amenable  to  solution  in 
the  current  electromagnetic  environment  with  this  release  of  GEMACS. 

Prior  to  using  the  BMI  technique,  the  impedance  matrix  must  be 
banded  by  use  of  the  BAND  command  and  the  user  must  direct  the  decomposi- 
tion of  the  banded  resultant  matrix  with  the  LUD  command.  The  use  of 
SOLVE  does  not  require  a previously  decomposed  matrix. 

A detailed  discussion  of  the  knowledge  gained  during  develop- 
ment of  the  BMI  solution  technique  is  presented  in  volume  II,  section  C. 
Results  are  presented  there  and  in  its  references  showing  the  range  of 
applicability  of  BMI,  methods  of  numbering  various  shapes  of  geometry, 
and  recommendations  for  determining  the  width  of  the  band  as  a function 
of  the  object's  dimensions. 

In  example  I the  ZGEN  command  is  given  in  card  22,  and  it  is 
located  within  the  loop  since  a change  in  frequency  requires  the  recom- 
putation of  the  elements  within  the  interaction  matrix.  Note  that  it 
may  appear  before  or  after  the  excitation  commands,  but  must  appear 
after  the  ZL0A0S  cards  and  all  other  cards  providing  electrical  data. 
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Note  that  the  ZGEN  command  must  also  be  present  in  the  input 
stream  in  example  2.  This  is  due  to  the  fact  that  the  frequency  has 
changed  to  1200  MHz  because  of  card  53  in  example  I. 

For  the  purposes  of  illustration,  the  examples  use  the  BMI 
technique  to  obtain  a solution.  Since  the  structure  is  small,  the  full 
matrix  decomposition  could  have  been  used  just  as  efficiently.  Note 
that  in  these  examples  the  BAND  command  precedes,  as  it  must,  the  LUD 
command  which  must,  in  turn,  precede  the  BMI  command.  Therefore,  at 
card  30  in  example  1 and  card  16  in  example  2 the  currents  on  the  crossed 
dipoles  are  obtained. 

GEMACS  will  output  to  the  user  the  name  of  the  impedance 
matrix,  the  basis  function  used,  the  name  of  the  geometry  data  set  as 
well  as  the  name  of  the  load  data  set,  and  the  electrical  parameters  of 
the  system.  Then  the  printout  will  consist  of  informative  messages 
relating  to  band  dominance  (showing  the  ratio  of  the  norm  of  the  numbers 
in  a column  within  the  band  to  the  norm  of  the  numbers  in  that  column 
out  of  the  band),  the  band  norm,  and  the  column  norm.  (The  ratio  of 
these  last  two  norms  yields  the  band  dominance  factor.)  A history  of 
the  iterative  process  is  also  printed  out  showing  the  number  of  iterations 
predicted  to  be  needed  for  convergence  (0  for  the  first  four  iterations) 
and  the  values  of  the  various  convergence  criteria.  In  this  case  the 
criterion  chosen  was  a PRE  value  of  5 percent.  The  final  values  are 
shown  once  convergence  has  been  achieved  (PRE  equal  to  2.29  percent  for 
this  case).  The  output  format  is  as  follows: 


r:.L  :*yF.3AscE  “4Tii«  zijo* 
„S!r.S  SA51S  FUNCTION  SJ'.COS 
0C0MET*F  i/Alx  SET  XDl'OL 
1.040SUF  S*eC|F!£l>lI'» 
F*£t,uEr;Cr(“EOA-iE«W>  300.00 

CCS3  (W'-OS/'O  0. 

yt.»T:»E  Piwviuvm  1.0000 


•xTmACT  3N0ZIJ  F40i  ZlJXO?  BANDw13tH  10 

At  COLU-'J  20  JAMS  S0R>«*  .33‘3E*03  C0lU*n  N3H<*  .3JOE.05 

3A\D  DOMINANCE  FaCT0»»  .2331E*0i 


\$S\  MMIABLLC-O® 


91 


N 


fitSIJY/JLAoic  COPY 


DECOMPOSE  B.NUaIJ  sr0-*t  BESJLT  In  p I vCT" 

mA»  DUG  = -79  37.  MIN  j l AG  = 3i-jE.9 

><;vOV  MATICI  •'  1?.13 


3MI  SOLUTION  TO-  liMOIlJ*  UANTS9C-7I  JA3P«  I 

MA«IT»n  lu  CGNVPG  ON  P-E  AT  5.0  BtBLU.T 

IT.HATION  1 P-OD  COW  IN  0 IUSaTK.nS 
P P ■-  s 1 0 C • 0 0 I P : = i H*S{)  d C B £ 2 15.**- 

IUBATICn  t "JV7  IH  C ITi-iTIONS 

pHE2  32. Ah  JB-.*2  72. **3  HCPt2  7-1: 

ITEkATION  3 r*-»t 3 OOsv  IN  0 ITERATIONS 
RHi2  10. M i;<i*  £1.99  BO  Hi  2 3. VI 

ITERATION  a PJf.D  GOf.V  IN  0 ITERATIONS 
Bml  = 5.7S  IRE2  12.63  oCRE*  1-j1 


CONVCHOtNCr.  BCAC-tCD 


FINAL  VALUES--  PPL  £.£9  IPc  S.3d  OCrfE  .57 


5.  Outputs 

After  the  electrical  currents  have  been  obtained,  the  GEMACS 
code  recovers  the  geometry,  load,  and  source  data  associated  with  the 
currents.  It  will  then  compute  the  impedance,  admittance,  and  power  for 
all  voltage  driven  (antenna  source)  and  loaded  elements.  Unless  speci- 
fically directed,  no  other  output  will  occur.  Additional  output  is 
obtained  by  using  the  PRINT,  WRITE,  and  EFIELD  commands. 

The  PRINT  and  WRITE  commands  may  be  used  to  obtain  a list  of 
the  currents  on  the  structure  as  well  as  the  contents  of  any  data  set. 
The  PRINT  command  lists  the  entire  contents  of  a data  set,  while  the 
WRITE  command  lists  those  data  specifically  requested  by  the  user.  The 
latter  could  be  used  to  print  out  a limited  set  of  elements  of  the 
interaction  matrix  if  the  currents  look  questionable  to  the  user. 

The  EFIELD  command  will  result  in  the  computation  of  the  near 
or  far  electric  fields.  The  output  will  list  the  vector  components  of 
the  field  and  optionally  plot  the  magnitudes  as  directed.  The  near 
field  will  be  determined  for  Cartesian,  cylindrical,  or  spherical  coor- 
dinates. The  use  of  spherical  coordinates  with  the  radius  parameter 
omitted  will  result  in  the  far  field  being  computed.  This  is  the  only 
mechanism  to  control  near  and  far  field  output. 
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The  following  is  the  only  data  output  by  GEMACS  without  being 
specifically  requested  by  the  user. 


antfnka/ioad 

SEGMENT  JK21XAG)  lN2V&rt/l  2.*  Is^uT  2*2 


2154.975 
1G<*7.  i .*.*» 
2121 .*t'  7 
1071.20$ 


-.00 ) ,4<i4*-04 

-.021 

- . o 0 9 .LO-E-C* 

- • 0? 1 .404L-04 


This  gives  the  number  of  the  segment  either  loaded  or  driven,  the  magni- 
tude and  phase  of  its  input  impedance,  the  power  input  to  the  driven 
element  in  watts,  and  the  power  into  the  load  connected  to  the  segment 
(none  are  present  in  this  example). 

The  PRINT  command  results  in  the  following  data  being  printed 
for  the  source  vector  (ANTSRC)  and  the  current  vector  (I). 


LI  At  AM-  PfC'21  J-l!  JOP-OIPOL 
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1 5 w • 1 

3 
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4 
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C. 
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5 

-.1 94%i-e 3 

• " 1 2 f ri  - '•  3 

• 5 ^ - 0 3 
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7 

- . : 1 ? \ t - ? 3 

-.s2'i.e-6* 

• 1-04*>c3 

- 1 4 3 . 5 

H 

-.l5.r_‘-03 

• 5 1 n ; V.  -03 

. ; ;j  . 4 

*> 

-.■*01 -at-*)  3 

-.2c4-,;.-**J 
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10 
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r* 

j 
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13 
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2 3 • r 6 

13 
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A u 

•2*fcl£-C3 
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lb 
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20 
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- i 5 7 . 3 

'U 

. f>  *,  U£  - v i 
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i 

ij.i'  3 

?5 

-.  H-C3 

- • J I 4 if  L - 3 i 

•c7^ti-j3 

- I . 1 

25 

V-.  • 

. ■.  j - t - : > 

. . : ' 1 1 - . 2 
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27 

-.ri  Jrf.-CJ 
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2fl 
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-u<? 
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Jl 
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- i t 0 . 5 

22 
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• • ’ r - v 3 
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33 
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• ? 1 L *3  j 
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25 
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. 
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i 
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. *•<*•.-  W 3 
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3* 
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c. 
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The  data  are  preceded  by  an  informative  message  giving  the 
symbol  name,  the  links  to  other  symbols,  and  the  data  type.  Since  these 
data  are  complex,  the  real,  imaginary,  magnitude,  and  phase  are  given 
for  the  current  (amperes)  and  the  excitation  (volts/meter)  on  each  seg- 
ment. Had  the  data  been  real,  the  format  would  have  called  for  ten 
values  to  be  printed  across  the  page. 

The  EFIELD  command  results  in  the  printing  of  an  initial 
heading  of  the  following  form: 


£-'  1ELD  mats:*  I 

SJrl*iCAL  COORDINATE  SYSTEM 

jav  f : c l :>  ro*  f;E'_3  daTa«so>ccj  -c-rrant  data* 


-5s.  3*  CATA^Ol^OL 
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This  states  that  the  E-field  data  have  been  derived  for  the  current 
stored  in  symbol  I and  that  they  are  given  in  the  spherical  coordinate 
system.  The  far  field  is  being  output,  and  since  no  symbol  for  storage 
was  specified  on  the  command,  the  storage  symbol  is  given  as  NOPCOD. 

Had  a symbol  been  given  and  storage  requested,  then  the  symbol  would 
have  been  listed  here.  This  can  be  seen  for  the  near  field  data,  where 
the  symbol  is  specified  as  NERFLD.  Also  listed  are  the  symbols  for  the 
current  data  and  the  geometry  data.  This  is  followed  by  the  normalization 
factor,  which  is  applicable  to  all  the  field  points  computed,  not  just 
those  for  a particular  <|>  and  separation  distance. 

GEMACS  then  prints  out  the  tabulated  and  graphical  field  data 
for  each  set  of  d>  and  distance  as  a function  of  theta.  The  tabulated 
data  are  the  magnitude  and  phase  of  each  component  of  the  electric  field 
as  a function  of  theta.  The  normalized  values  are  derived  by  finding 
the  magnitude  of  the  total  field  at  a point,  dividing  by  the  normalization 
factor  (0.136  v/m)  in  this  case,  and  then  finding  20  log^  °f  that 
ratio. 

The  plots  provided  with  this  release  of  GEMACS  serve  to  show 
qualitatively  the  nature  of  the  beam  pattern.  They  can  be  useful  for 
quickly  detecting  anomalies,  deep  nulls,  or  unexpected  shifts  in  the 
direction  of  the  main  beam.  As  explained  in  the  discussions  of  the 
EFIELO  command,  the  axes  are  unlabeled  and  the  references  depend  on  the 
most  rapidly  varying  coordinate  and  the  coordinate  system  being  utilized. 

The  user  should  also  be  aware  that  the  coupling  between  pairs 
of  antennas  may  be  obtained  from  the  data  output  by  GEMACS.  The  coupling 
may  be  obtained  by  calculating: 


10  loo 


PUR  LOAD 
10  PUR  INPUT 


6.  Checkpoint  Restart 

GEMACS  is  structured  to  write  a checkpoint  at  specified  time 
intervals,  on  command,  or  on  detection  of  a fatal  error  during  execution 
of  any  command.  In  order  to  recover  from  a checkpoint,  the  RSTART  com- 
mand has  been  provided.  The  restart  action  is  straightforward;  on 
encountering  the  RSTART  command  in  the  input  stream,  all  previous  input 
is  overwritten  with  the  contents  of  the  checkpoint  file.  After  the 
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checkpoint  file  has  been  read,  additional  commands  may  be  processed. 
These  commands  will  be  concatenated  to  the  commands  for  the  run  which 
generated  the  checkpoint  file.  The  END  command  present  in  the  initial 
input  stream  is  ignored.  All  original  commands  which  were  executed 
prior  to  the  checkpoint  will  be  ignored  and  processing  will  start  at  the 
instruction  being  executed  when  the  checkpoint  was  written,  unless  the 
checkpoint  was  written  in  response  to  a CHKPNT  command.  In  this  case, 
processing  will  resume  at  the  next  command  present  in  the  current  input 
stream.  The  current  input  stream  will  include  all  commands  entered 
after  the  RSTART  command.  Those  commands  affected  by  a WIPOUT  command 
will  be  omitted.  This  allows  the  user  to  completely  replace  the  input 
stream  following  the  command  being  executed  when  the  checkpoint  was 
written.  The  commands  preceding  this  command  may  also  be  altered; 
however,  this  will  have  no  effect  on  the  subsequent  execution.  The 
RSTART  use  is  illustrated  in  example  2.  In  this  case,  the  last  check- 
point written  during  execution  of  example  1 (card  52)  will  be  read  into 
GEMACS.  Since  the  loop  has  already  been  executed  twice,  the  commands 
following  the  RSTART  command  in  example  2 will  be  executed  immediately. 
Note  that  FRQ  had  already  been  doubled  before  the  checkpoint  was  writ- 
ten, therefore  it  was  not  necessary  in  example  2 to  redefine  the  fre- 
quency. The  parameters  TIME  and  NUMFIL  will  have  the  same  values  in 
example  2 as  in  example  1 since  they  were  not  redefined.  Since  TIME  was 
not  redefined  in  example  2,  the  time  remaining  to  execute  example  2 is 
the  time  remaining  when  example  1 finished. 

The  logical  unit  number  for  the  checkpoint  file  is  shown  in 
section  E.l,  table  3,  of  this  volume.  The  user  is  advised  to  always 
provide  for  a checkpoint  file  on  any  run  by  requesting  an  immediate 
checkpoint,  using  the  NR  option  on  the  command.  As  a result  of  this 
command  subroutine  ERROR  will  generate  a checkpoint  tape  whose  contents 
will  provide  a data  base  from  which  the  user  may  recover  from  a fatal 
error  in  a command.  The  subsequent  restart  run  could  then  have  a RSTART 
command  which  could  be  followed  by  a WIPOUT  command  eliminating  all 
commands  from  the  erroneous  one  to  the  end.  A new  run  stream  identical 
to  the  original  from  the  fatal  point  on  (with  a corrected  version  of  the 
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fatal  command)  can  then  follow  the  WIPOUT  command.  Execution  time  can 
thus  be  saved. 

The  output  for  a checkpoint  is  shown  in  section  D.l.  The 
output  from  GEMACS  that  is  generated  during  the  restart  process  is  shown 
on  the  second  through  tenth  pages  of  example  2.  All  of  this  output 
occurs  only  if  the  DEBUG  command  is  executed  during  the  ILP.  The  basic 
output  consists  of  a record  indicating  what  common  blocks  have  been 
loaded  and  how  many  words  have  been  loaded  in  each  common  block.  Then, 
as  each  symbol  is  loaded  back  into  its  file,  an  informative  message  is 
printed  out  giving  the  symbol  and  the  number  of  records  loaded. 

7.  Debugging  Capability 

Example  2 illustrates  two  of  the  three  debug  modes  available 
in  GEMACS.  In  order  to  illustrate  the  use  of  the  DEBUG  command  for  the 
Input  Language  Processor,  the  ILP  parameter  is  specified  on  card  1.  As 
a result,  a detailed  printout  of  the  input  language  processing  and  the 
restart  process  is  provided.  The  Input  Language  Processor  information 
appears  under  five  headings  during  processing.  A sample  resulting  from 
the  command  on  card  16  of  example  2 is  shown  below  and  will  be  discussed 
i n deta i 1 . 
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The  command  itself  is  first  printed  out  exactly  as  it  appears 
on  the  input  card.  The  data  following  the  "PARSE"  CALLED"  heading  are 
NCODE  and  NVAL  array  entries  specified  by  the  NTAB  index.  To  the  right 
of  the  NVAL  data,  the  card  image  of  the  field  corresponding  to  coded 
data  is  printed. 

The  data  under  the  heading  NCODE  identify  the  type  of  informa- 
tion, whether  it  is  integer  or  a keyword,  etc.  For  convenience,  the 
more  common  codes  and  their  meanings  are  listed  below: 


NCODE 

1. 

2. 


3. 


k. 

5. 


6. 


7. 

8. 


MEANING 
End  of  Card 
Error  on  Card 
Task  Field 
Symbol  Field 
Keyword  Field 
Alpha  Field 
Integer  Field 
Floating  Point  Field 


These  data  are  set  in  subroutine  BLKDAT,  and  the  definitions  are  found 
in  the  discussion  of  named  common  ADEBUG,  both  of  which  are  found  in 

the  computer  code  documentation. 

The  data  following  "NEW  TASK  ENTRY"  correspond  to  the  entry 

code  in  che  NTSKTB  array  at  the  location  specified  by  the  first  number. 
The  content,  which  points  to  the  first  entry  in  the  NARGTB  array  for  the 
command,  is  listed  to  the  right.  The  data  following  "NEW  ARGUMENT  LIST 
ENTRIES"  are  the  contents  of  the  NARGTB  array  (printed  in  the  second 
column)  at  the  locations  identified  by  the  first  column.  These  are  the 
coded  data  to  be  interpreted  by  the  individual  processors  which  execute 
the  commands.  The  first  entry  is  the  unique  number  of  the  task  to  be 
executed,  in  this  case  the  BMI  command.  The  remaining  data  are  pointers 
to  the  symbol  or  literal  tables  (a  positive  integer  pointing  to  the 
former  and  a negative  integer  pointing  to  the  latter),  and  keyword  NCODE 
array  pointers,  depending  on  the  number  in  the  NCODE  column  of  the 
(PARSE  CALL)  printout. 
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The  data  listed  under  "NEW  LITERAL  TABLE  ENTRIES"  correspond 
to  entries  in  the  LITNUM  array  at  the  locations  specified  by  the  first 
column.  The  second  column  contains  the  code  identifying  the  literal 
type  (integer,  floating  point,  alpha,  etc.)  and  the  value  is  printed  in 
the  third  column. 

This  is  illustrated  below  for  the  EFIELO  command  cards  25  to 
29  of  example  2. 

* cjlr.wf-l.  T ’.-■Li  ; . T : r S 

li  6 . 

15  8 .10DtiO'-»01 

An  additional  heading  "NEW  SYMBOL  TABLE  ENTRIES"  will  be 

printed  whenever  a new  entry  is  made  in  the  NDATBL  array.  This  is  not 

illustrated  in  example  2 since  all  of  the  symbols  had  been  previously 
defined  by  example  I.  If  it  were  present,  it  would  contain  eight  columns 
of  data  listing  from  left  to  right  the  symbol  name,  its  file  location, 
the  first  and  last  words  on  the  file,  the  bit  set  information  giving  the 
attributes  of  the  symbol,  the  number  of  rows  and  colums  of  data,  and  the 
linkage  of  the  symbol  with  other  symbols  in  the  table. 

At  the  conclusion  of  input  processing,  the  contents  of  NTSKTB 
and  NARGTB  are  listed  under  the  headings  "TASK  TABLE"  and  "ARGUMENT  LIST 
TABLE".  An  excerpt  from  example  2 is  shown  below. 

Task  T a bs L 

1 

2 

J 
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The  three  columns  list  the  task  number,  the  location  of  the  first  entry 
in  the  NARGTB  array  for  the  task,  and  the  arguments  needed  by  the  task 
processors  for  execution  of  the  command.  This  is  essentially  a summary 
of  the  information  contained  under  the  "NEW  TASK  ENTRY"  and  "NEW  ARGUMENT 
LIST  ENTRIES"  printed  for  each  command.  Two  points  should  be  noted. 
First,  the  entry  “999999  indicates  a default  input  by  the  user.  Second, 
since  this  is  a restart,  the  sequence  of  tasks  follows  the  command 
sequence  from  example  I followed  by  the  command  sequence  of  example  2. 

The  loop,  symbol,  and  literal  tables  (reproduced  here)  follow 
these  data.  The  first  array  contains  the  control  information  for  the 
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LOOP/LABEL  commands.  Next,  the  NDATBL  array  is  listed  under  the  "SYMBOL 
TABLE"  heading.  This  array  contains  the  name  and  all  known  information 
for  the  symbols  defined  by  the  input  stream  of  this  and  previous  runs. 

The  LITNUM  array  is  then  listed  under  the  "LITERAL  TABLE"  heading.  The 
type  and  value  of  each  entry  are  printed.  A detailed  description  of 
these  arrays  is  presented  in  section  I of  the  GEMACS  computer  code 

documentation. 

Since  example  2 was  a restart,  the  debug  information  relating 
to  restarting  is  printed  on  the  second  through  tenth  pages  of  example  2 
output.  This  printout  consists  largely  of  documenting  read  and  write 
activities.  The  output  specifies  the  logical  unit  and  the  number  of 
words  involved.  Additional  output  is  primarily  related  to  the  retrieval 
and  storage  of  FORTRAN  common  blocks  and  the  data  associated  with  the 
symbolic  names  generated  during  the  run  of  example  1. 

The  execution  debug  mode  is  turned  on  by  card  15  of  example  2 
to  illustrate  the  level  of  output  obtainable.  This  output  again  largely 
documents  the  I/O  operations  being  performed  during  the  BMI  solution. 

In  addition,  the  RHS  and  solution  for  each  iteration  is  printed  along 
with  the  current  values  of  the  PRE,  BCRE,  and  IRE.  Since  the  bulk  of 
activity  in  GEMACS  is  concerned  with  moving  data  in  and  out  of  core, 
tracking  this  I/O  is  extremely  important  when  trying  to  isolate  errors 
leading  to  abnormal  termination.  When  in  the  debug  mode,  each  time  a 
data  set  is  stored,  fetched,  updated,  or  redefined,  a message  will  be 
issued.  An  additional  level  of  diagnostic  output  is  obtained  when  the 
debug  mode  is  entered  with  the  TRACE  option.  In  this  case,  a message  is 
issued  each  time  a subroutine  is  entered  or  exited  which  identifies  the 
subroutine  by  name  and  the  calling  subroutine.  An  additional  level  of 
trace  information  to  identify  the  FORTRAN  calling  statement  is  available 
and  identified  by  an  LSTAT  number  referencing  a section  of  code  within  a 
subroutine,  but  it  is  not  utilized  extensively  in  this  release  of  GEMACS. 

8.  Error  Recovery 

GEMACS  has  a large  number  of  internal  checks  to  maintain  the 
integrity  of  the  data.  When  an  error  is  detected,  a message  is  printed 
out  to  identify  the  nature  and  location  of  the  error.  A walkback 
feature  is  also  incorporated  which  lists  the  subroutine  calling  sequence 
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from  the  subroutine  which  detected  the  error  to  the  main  routine  within 
GEMACS.  Additionally,  a checkpoint  will  be  attempted  if: 

(1)  A checkpoint  file  is  available. 

(2)  The  error  did  not  occur  during  a checkpoint. 

(3)  The  NR  parameter  was  specified  on  the  last  CHKPNT  command. 

The  reason  for  not  writing  a checkpoint  when  the  checkpoint  file  is 
rewound  after  each  checkpoint  is  to  avoid  writing  possibly  invalid  data 
over  valid  data. 

In  the  event  of  a catastrophic  error,  such  as  divide  fault  or 
address  out  of  range,  there  is  no  mechanism  in  GEMACS  to  interface  with 
the  operating  system  for  recovery.  In  this  event,  the  status  of  the 
peripheral  files  is  strongly  dependent  on  the  local  operating  system 
capabilities  and  features. 
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3?  * PRINT  COMMENT  VECTOR  I «ND  SOURCE  VECTOR  anTSRC 

33  » 

3*  PRINT  I.anTSRC 

35  t 

36  s compute  -'amflp  ano  plot  on  log  polar  format  foh  Tut t a 

37  S 10  DEGREES  From  O(vEmTICAl)  To  3s0 ( BACK  TO  VERTICAL) 

38  S OF  0 AND  NO  DEGREES... ( -AR  FIELD  INDICATED  sr  SPhERIC 
JS  i ANO  MINING  RaOIAl  COORDINATE  R i 

AO  » 

A 1 EFIELO(I)  LDrALR  TZ»360.  DT*10.  R£*90.  DP*90 . PlsO.  T1«0. 
a£  I 

a 3 S COMPUTE  NEAR  FIELD  In  Same  PlAnES  ANO  ST0«E  AS  SYMoOL 
aa  s future  use  if  necessary 
AS  S 

A 6 NERFlO«£FIE_DI 1 1 lDGPlR  T£*3A0.  DT*10.  P£«90.  DP«90.  R)*l 
A7  i 

*3  S »RIT£  A CHECKPOINT  AND  INRlblT  AjTD  RExlNo  Kllrt  NR  P 
A9  V note — TrIS  nDJU>  only  RE  OONc  »hEn  checkpoint  IS  tan 


increments  of 

rOR  Pnl  ANOlES 
Al  COORDINATES 


nerflo  foh 


3.  P1=0.  T1 =0. 


aramETEk 
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S£  CMKPNT  NR 

S3  FRO**. FRO  S OOJBLE  FR£(. 

Sa  -LABtu  LABEL  1 * ENO  of  03  l 

ss  s 

S*  END  OF  COMMANDS  FOR  EXAMPLE  1 


S OOJBLE  FRED  To  bOOMnZ 
i ENO  OF  03  LOOP  ON  LAdEo  .ABEL  1 


GE MACS  task  EaECjTIOn  started  On  11/10/76  aT  1Z.06.S3. 


number  of  peripheral  files  AVAIlIB.F  lo 


Ron  time  SET  TO  5.00  CPU  MtNuTEs 


"REuuEnCY  set  TO  300.  MEGAHERTZ 

•AVLENoTm  *9r9  meters 
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PtAL  CD*P  .500  MAG  COMP  0. 

£ AC  I T t 'O  50  05 

1 3 

EaCIT E GEOMETRY  3aTA  A01»3l 

excitation  vouge 

iJCIUT'ON  DATA  AnTSPC 


PEAl  comp  0.  I MAG  COMP  .is J 

EaCITeO  SE5S 

2 . 


decompose  a.MO^u  store  result  in  rnoai.,  pivor= 

R*A  DUG  * <*7937.  MIN  01  AG  * 39a2.9 

p;woi  hat :o  * i?.i3 


iMl  SOLUTION  TO-  BND2 I J*  MAM  SQC-2 1 JA  JH» 


MAAITia  10  CONVPG  ON  Pr£  AT  5.0  PtPCLNt 


I'iHATION  1 PP£D 

100.00  IRE* 
IT-raTIOn  2 PRE3 

3R£  = 52.46  IRE* 

ITERATION  3 PPE3 

ph-=  10.81  1»£- 

ITEWAT10N  4 PPEO 

»h£*  S.7S  IRE* 


C3NV  IN  0 ITERATIONS 
100.00  dCR£*  IS.vn 

CONN  IN  0 :TE»aTIONS 
72. »J  BCRe*  7.1s 

:onv  in  o iterations 

27.99  HC»E*  3.07 

:onv  in  o iterations 

12.69  dCRE*  I.jI 


CONVERGENCE  ReACmED 

final  values—  PPE  2.29  ME  5.36  oCRE 
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GEOMETRY  data  set  xomol 
•••  NO  LOAD  FOR  STRUCTURE 


ANTENNA/LGAD  PARAMETERS 

segment  IMP  iMAGJ  lMPiPnE)  P.R  Ist-uT  P.R  eOA3 
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constant  pmi«  o. 

E ( ThET  A ) 

t (P'lJ  ) 

THs 
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PHASE (DEG) 

HA3NI 7 UU6 

PtArd  (Dt'GJ 

C.O 
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N£w 

1 

2 

3 


argument  list  entries 

9 
h ♦ 

0 

2 rsta&t  cpnjm*? 


PARSE  CALLED 


NT A 3 NCOOE 
1 5 


NVAL 

32 

*S 

8 

2 


CRSTakT ) 
( CP\OM) 
( = ) 


Nt*  Task  Entry 

2 a 

Nlw  ARGUMENT  lIST  ENTRIES 
A 2* 

S -A9RAVR 

S -SAM**)* 

7 > 


EXECUTING  T He  RESTART  COMMAND 
►'ROM  FLP  CR*->NT»  J\  L(»GICAfc 
Rc.Au  EIl.E  7 Nw*p£A  Op  wGkdS* 

READ  FILE  7 No*p£R  Or  *0RDS* 

READ  FILE  7 NUMrtEP  OF  wGADS* 


UNIT  7.  Cr»£C<  POINT  NUM8ER  2 
1 
1 
1 


COMMON 

ACER JO 

h :a  j 

8 1 Th 

110*. 

WORDS 

file 

7 VJ^eE*  Or  KOHOSs 

li( 

COMMON 

AM Pllo 

RE  A j 

w I T n 

43 

wO*uS 

Common 

AROC J M 

RE  AO 

M l T M 

104 

wu*G  5 

CCm--*  ;n 

CSYSVm 

P*  AJ 

w I Tp 

7 p 

••U-DS 

Common 

Ot ► DAT 

8£  A'j 

w.Tm 

sG*» 

rORl>9 

COMMON 

Fl.DCOM 

READ 

wITm 

7 

wURUS 

COMMON 

GEO')  A 7 

«*A^ 

wITh 

11* 

wOROS 

Common 

lor LES 

READ 

* I T H 

20.) 

wURDS 

COMMON 

JUNCOm 

RE  AO 

* I T R 

20S 

wOR  uS 

COMMON 

PART  Art 

READ 

* I T f 

3338 

ROROS 

COMMON 

SCnpap 

•r:ai> 

*1  Tr, 

755 

wO'ROS 

COMMON 

SEL-mnT 

READ 

aI  Th 

5o23 

WORDS 

COMMON 

SYmSTk 

p*a:3 

W I Tn 

10? 

aOrJS 

COMMON 

sysfil 

read 

a I Tn 

32 

WORDS 

COMMON 

TEMP&i 

k*au 

a I Tr 

SO  02 

WORDS 

•IE  AD 

FILE 

7 

NURrtl A 

OF 

WORDS* 

i 

5ETSYW  CALLED 

FOR  RECORDS 

I TO  40 

FO-l 

RE  AO 

FILE 

7 

NU  *n  * A 

OF 

WORDS 

11 

REAP 

FILE 

7 

NUM0 • R 

OF 

fiOROS* 

11 

RE  AC 

FILE 

7 

\U  MR  * A 

OF 

wOkDS* 

11 

R1AO 

FILE 

7 

NO m .£R 

OF 

wOrfDS* 

11 

Re  AD 

F I CL 

7 

NUKn£R 

OF 

wORDS* 

11 

-*E  AD 

FILL 

7 

\U*rt£-« 

GF 

wORDS* 

11 

READ 

FILE 

7 

\ U v.  3 * R 

OF 

wORDS* 

11 

READ 

fill 

7 

NuNnE* 

OF 

wORDS* 

11 

READ 

FILE 

7 

\0*tt£-« 

OF' 

WORDS* 

11 

READ 

file 

7 

NDMR  £ A 

OF 

wORDS* 

11 

Re  AD 

F!ll 

7 

Nu  Mr>  £ R 

Or 

wOkuS* 

1 1 

rEaD 

file 

7 

\UMi3-a 

OF 

w 0 R D S * 

11 

-lad 

file 

7 

NU  Mp  £ *< 

OF 

» 

11 

A 4 A Z 

F I _E 

7 

NJMP£P 

U~ 

11 

REA*:. 

Fit  E 

7 

NU  '-r  I* 

C.F 

w')R  -S* 

11 

, E aL 

F I uL 

7 

N J <•*  £R 

V.  F 

wDwOb* 

1 1 

R i » w/ 

F I _ . 

7 

n j Jc  i R 

C * 

r 0 J S * 

i . 

R T A v 

FILE 

t 

0* 

W.'  '•Jb- 

>1 

RE  **L 

Fite 

7 

Nu v R * R 

OF 

11 

-LAD 

FILE 

7 

NU«H*R 

OF 

WORDS* 

11 

-I  AD 

FIcfc 

7 

Nc  MR  * A 

or 

w I>  m c S * 

. 1 

Rr  AO 

F ILl 

7 

^ ' - £ -« 

OF 

wOROn* 

1 1 

-f  .,  * 

F I c l 

7 

N J v > 

OF 

W 0 P . • N * 

1 1 

r>u 

FI».E 

J 

N„  J 

C " 

11 

I'll. 

FILL 

7 

Nc  * R 

L F 

# C-«GSs 

11 

, v . . 

r : . c 

7 

\ *-«  **  ■ i ' 

OF 

wC-^S* 

) 1 

RE  - * 

F 1 4.  L 

V 

N U m n £ R 

of 

wDRDL* 

1 1 

R L a J 

FILE 

7 

\ J v R£R 

OF 

wOmDL * 

1 1 

R fc  a 0 

F ILF 

7 

M^r.;R 

OF 

wORwS* 

: l 

Rr.  AO 

F !LE 

T 

No  v p»  £ R 

u- 

w‘)^Df.* 

1 1 

-ft) 

'la 

7 

N^m- £y 

OF 

wC-'D’s* 

:i 

■Jr  ' 

F '.L 

•» 

\Om.i 

C:r 

*'  D • • * S * 

A . 

- . i 

FILL 

7 

V 

>s 

wO»  Diw 

il 

-c  .» 

-III 

7 

NOMr.£* 

; r 

wDRDSm 

1 I 

-L  - ■ 

r* : l r 

7 

\J*>  : R 

OF 

A .)««•}* 

11 

■*  AO 

* IlF 

7 

\iUv*£a 

F 

-C.Ru*>* 

i * 

READ 

r :a 

7 

OF 

wOROS* 

1! 

P£  alInO 

DATA  btT 

xCJROl  mLcORDs* 

R-AD 

file 

7 

\*>*Rl  A 

OF 

wORDl « 

4 

7 = r I L £ I D 
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j’.T'jIM  CiLLEO 

FOR  -itCiKO-v 

1 70  A3 

Fj-V 

41  -t 

FV  • 

7 

No**!-  *Fr 

* 0*0 Ss 

«£» 

- A 

* Tl  r 

7 

Jr 

* » i*  OS  * 

db 

*z-Q 

t ! Ll 

7 

\o*»m£A  or 

•»  0 I ) S s 

OJ 

- r 40 

r ! Lc. 

7 

NO***:*  o- 

»0*LS= 

MO 

*| 

F I L t 

7 

\ 0 M n £ - C f 

hi  JWL'Ss 

MO 

’>  w 4 D 

FIlE 

7 

s>j<  of 

*L- jSs 

ort 

- . 

f ; . -; 

7 

\ o •«  i - L ' 

* )-l.S  = 

C l‘ 

-t  -u 

F iwL 

7 

so*-i£-  0s 

HI  0 — C m>  — 

o 0 

nA  D 

r 1 w r. 

7 

S O sl  n £ W G 6‘ 

heDkOSs 

ou 

Al  AD 

f :it 

7 

0' 

*Or»'DS* 

cO 

-£  AD 

file 

7 

\ J v n 1 — Op 

•0»Ua* 

MO 

-•AD 

fill 

7 

SUMti£^  OF 

fcO*ob= 

MO 

-LAD 

f :le 

7 

\J^n£*t  OF 

•OADbs 

MG 

Rr  AD 

f :_e 

7 

\OMa£n  QF 

hi  0 K L>  ^ = 

MG 

- C-  1 

F i L t 

7 

NL'^iin  Oc 

»OKOb= 

t>3 

-E  AO 

kill 

7 

of 

«*GRDS  = 

6 0 

-LAO 

F !l£ 

7 

\ w V r«  i' w cr 

wCr<0t3  = 

Fl  .1 

-■  Aii 

file 

7 

OF 

«G«US= 

CU 

*£AO 

FILE 

7 

\0M3**<  OF 

^Owob= 

MO 

■<€  AO 

FILL 

7 

\u'»oii  OF 

aORUS- 

eO 

*Y  A , • 

FUf 

7 

\u'*r  » : * Ofc 

•'-ns= 

60 

-.r  Aii 

fill 

/ 

\ U M . i £ k#  t * 

HiC^OS* 

i 1 

-£A0 

Fiit: 

7 

OF 

*!)r»l)S* 

1 1 

-t  AO 

r Tl£ 

7 

NO^n-w  OF 

•O«0ba 

1 1 

-f  A.’. 

F !LE 

7 

Or 

*DwG$3 

i : 

- E AD 

f ilf 

7 

\Ov;-»-_*<  OF 

M.O-Ob  = 

1 1 

w - u 

FILE 

7 

,:F 

»iO-Jb  = 

1 1 

AO 

FILE 

7 

Or 

**()-£)  S = 

1 1 

•<:.  A.) 

FI.E 

7 

\Jv,.i£^  OF 

»0«fwS  = 

1 1 

*<'-AD 

F I lc 

7 

\0*  •*£'■<  OF 

n0f<!)S  = 

1 1 

-L&0 

F ILE 

7 

So  ‘‘H  £ - Cr 

• 0 W 0 G s 

1 4 

■<c  AD 

F ILE 

7 

\0'4r?  i 1 OF 

*GAOb= 

1 1 

■?L  AP 

file 

7 

or 

*0-'DS  = 

1 ’ 

-r  AD 

file 

7 

No^F-'W  OF 

*c;<os= 

1 1 

*EAJ 

file 

7 

Sj'mEft  OF 

h*  0 •<  0 s = 

1 1 

3£A0 

file 

7 

OF 

».o*os  = 

I 1 

AL  AO 

file 

7 

So'i-'i-  f;F 

*CA’Lb  = 

1 1 

■»t’  AD 

F III 

7 

LiF 

*uKi,Ss 

.1 

*<1.  AO 

F I w£ 

7 

«r.  •;  - c- 

*»0-  L = 

II 

-F ; 

f : w£ 

7 

N|J  /n£y  Or 

*0-.,5  = 

1 1 

*t  A J 

F ILF 

7 

\o'^r£-/  Cr 

A 0 '.  D S = 

4 I 

ALAS 

file 

7 

0" 

W 0 R Li  S = 

11 

tcAD 

file 

7 

\0  i "»  OF 

*Okl  S = 

12 

-t  a: 

FILE 

7 

OF 

M 3 - Lb  * 

1 1 

5 £ A n 

F ILE 

7 

\J^n*G  0” 

WO- u b = 

1! 

-LAD 

file 

7 

\ J ^ -.  £ -<  Or 

«n-us= 

i 1 

-£  AO 

f III 

7 

0“ 

«0«0i= 

2 1 

-E  '.MING  . 

a t a 5tr  ac:j 

Lw  -'CORDS* 

40 

■»u  a: 

F IlE 

7 

No^.i’A  C 

- ^L/is 

1 

3l  rb 

w - called 

i 

I'm 

i 70  *0 

Fw«  pnO^Ij 

FILE 

7 

- v - £ - 0- 

«,  > 

•'  S.  - ■ • 

file 

7 

‘ - > F 

A > Dbii 

- L 

. A 

• »L' 

7 

t.  - w/  ' 

i: 

- : : , 

r : _ • 

- 

VO'*  « r 

<•  L 

c • w r 

7 

;F 

• L-  .-it 

<,•» 

i - j 

r I • A 

/ 

\ » v - L * C * 

^ -:  'is 

4 i 

- 1 i • 

r 

7 

’.j*  I’-,  U- 

A .A.  ;A  = 

4 c‘ 

Ala.) 

7 

\v*^  . £ *»’  O-' 

**  * <*<o  > « 

• £..S 

F . L : 

7 

S «£  # n £ -i  L r 

*:  \ b s 

-tr 

- z * • 

- . . z. 

7 

\ W 1 - f.1 

/• 

4t 

• i - ■ 

7 *.  „ 

7 

Sw  *-  i - Or 

.-  . - O 3 * 

V? 

. ; 

c * •_  w 

r 

Sw‘-:-  Jr 

A<n*a* 

4 ; 

-L  - 

* i k ' 

7 

j1 

H , - • j 

■••-■  j 

■.  • 

7 

Swo  i-  or 

A . - , S 

- c 

-f  A J 

‘ »L  \ 

■» 

4 u*  w* 

A L - . ‘ -'  » 

4 i 

- : TD 

FIw*. 

7 

Vc-ri*<  OF 

s 

K / 

- ; i 

FILE 

7 

OF 

a inwb* 

» £ 

- • , 

FI.E 

7 

W OR  -bs 

4 J 

■ : 

c i l r 

7 

\J^:-  0 7 

a -oS»* 

4 

- - 

- : ».  * 

7 

\ j *?  £ ^ 

7-DSa 

4 L 

A :.  A . 

■ ! : - 

7 

A ■ 1-  » 3 

, ; 

- ; A ' 

F It  * 

7 

A . , - < 

^ 2 

*'  - 

r : •.  e 

7 

M 0- 

li  • f , ‘j  - 

n' 

• ( , f 

FI.-. 

7 

F 

« - '.1  * 

••  k 

-C  ’•  / 

Fi.r 

7 

SO **:•  £ - OF 

«#C!*/.)b* 

Av> 

f e 

7 

S^\n£-  »;? 

*0^ ^ >* 

k .-j 

f ;le 

7 

CF 

aL  - S 

4 C 

- :.  • 0 

FILE 

I 

> 

»!./•,  ,3 

+ t 

-■-j 

F ILE 

7 

S - M - £ -I 

A . jS 

4^ 

s£  -0 

7 

\ -n-V  C» 

* 7*0  a « 

4^ 

7 I Le.  I 0 


r «rit£r^ 


1 «KInST  »G*l)  Os  F I l£ 


1 * F I - S T hi  ( jhu  0 S F I «. £ 
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*ZAo 

FILE 

7 

NUMnf W 

Cr 

JSs 

4^ 

■it  • 0 

F ILE 

7 

iu«*n£4 

O' 

fiOkI^s 

4? 

«£A  D 

FILE 

7 

NU*H£*i 

OF 

• Ob-jSs 

42 

•if  AO 

F ILE 

7 

nu**i-:«< 

OF 

-iOWON  = 

42 

nC  a. 

FILE 

7 

nuvm* 4 

OF 

«OQu$>s 

42 

H*0 

file 

7 

NUNn£4 

OF 

»0-«DS* 

42 

WlAO 

>'  I lE 

/ 

NU*ii£-i 

0^ 

#»OfiOS  = 

42 

*£40 

FIlE 

7 

Nu"nc* 

Oe 

•kOMOS* 

*2 

«EAD 

FIlE 

7 

NU*b:> 

OF 

•OkOS* 

42 

it. 

FIl  F 

7 

VI  t%»u  * w 

<>r 

...W  L 

« 1 

*E  AO  I N6 

data  y r 

JN'D^IJ  Kt<  o»OS* 

40 

*£AD 

file 

7 

No*rt*  »i 

OF 

«0»iOb* 

1 

SETSYm  Ca 

.LCD 

rQi  -icCL 

r#D  S 

1 TO  I 

Fow 

ANTS4C 

*C  AD 

file 

7 

OF 

a'OkDS* 

bO 

Sit  AU  I Mi 

Data  itr 

AvIa^C  -£CoW3s« 

1 

*1  40 

file 

7 

NUMM£4 

OF 

mlO^Obs 

1 

GETS 

called 

FG*  NtCOnOS 

1 TO  1 

r0b 

I 

*£  AO 

FII.£ 

7 

NJ^'I  *> 

OF 

wO*L'b  = 

bO 

**E  aD 

ING 

DATA  i,£.' 

I w£CCWDS= 

1 

■<£  -C 

FIlE 

7 

NL^b*:^ 

OF 

NOb Oba 

1 

JEIbi'M  CA 

lLEO 

F 0 4 ■«  E C 0 * i - S 

1 TO  £ 

FOb 

N£KF.j 

*E  AD 

fill 

7 

OF 

wO-iOi** 

22b 

■ic  AO 

file 

7 

NJN-j£*< 

OF 

M)KDt>  = 

2cb 

4EAJ 

ISO 

data  se  t 

Nt  'if 

LO  WcCO^DS* 

2 

*£AD 

f ■ ILE 

7 

NbM'j£4 

Oi 

t^O^i  >^*  = 

1 

ctTS 

- Called 

fOi  4 £ C 0 ■<  u S 

1 TO  40 

r u*< 

oNDu -K 

•*£-.0 

‘ IlE 

7 

NUMi; 4 

OF 

a G * D b = 

2 2 

FILE 

7 

N U * n S 4 

f p 

•r  C « U G - 

22 

*C-D 

file 

7 

\L  £* 

OF 

* OW  J>b  = 

22 

-r  ad 

file. 

7 

NL^ac* 

l»F 

22 

-LAD 

file 

7 

NO '••■>£ - 

Dr 

A ’y  w JS  5 

2*2 

4£aD 

F IlE 

7 

\ O N b £ 4 

OF 

w !W'JSs 

22 

*i  AD 

F III 

7 

NoMh;  •< 

OF 

..  wDSs 

22 

•< f AD 

file 

7 

NO 

(;C 

*..  * jS  = 

22 

■iC.-D 

E ILL 

7 

\ <L-  *'  ' £.  - 

or 

ci 

* d 

F III 

7 

NO  N '!> 

OF 

•<0k  JS« 

22 

*E  A J 

fIlS 

•» 

* 

*)* 

a .;40S  = 

22 

*£~:> 

F ILE 

7 

Nl<  ’';:  £« 

or 

A'.c«fjS  = 

22 

*L  AO 

F!lE 

7 

NjNt*  L* 

OF 

if.  0 ri  0 b - 

22 

*£A0 

FIlE 

7 

\ J *n  £4 

OF 

« 0 b 0 S = 

22 

•i£  A 0 

1 ILE 

7 

SJ'V  - N 

CF 

A()Wl)S  = 

22 

k£  AD 

F I L t 

7 

MOMv-w 

oF 

w.iNOb  = 

22 

4£  - 5 

file 

7 

NJ*  5 £-< 

OF 

22 

■if  a: 

file 

7 

c- 

• OF*f‘b* 

22 

«fc*D 

"III 

7 

No«b£-< 

0* 

«<  ’ J b 0 •>  s 

22 

■it.  AD 

file 

7 

\0,J>>£4 

c- 

a'JkO^s 

22 

- A u 

file 

7 

0* 

w OkliS* 

22 

^LtO 

file 

7 

OF 

tfcO«uS= 

2c 

*•  a.) 

file 

7 

oF 

* 0 r.  J s s 

22 

■ 1 

file 

7 

No  »*m£^ 

l 7 

«')bu*b* 

22 

- i AO 

rlLF 

7 

no**?!- 

OF 

^ 0 s * 

22 

*K  -'J 

F !l‘ 

Y 

N - 

0* 

#;  0-.);s 

22 

■an 

'IlE 

7 

N O 14  f>  i ^ 

I/F 

• >.As 

22 

* £ A D 

FILE 

7 

NO  Nr.*  * 

OF 

• GHo  jS 

22 

■i£  AD 

FKE 

7 

NO^*j£y 

C F 

#.  O^iOSe 

22 

AO 

F III 

7 

NO^I  -’4 

OF 

aDp'OSs 

22 

-■  . > 

F IlE 

7 

NO  Ny  ;*  1 

cr 

*0b  iy  S* 

20 

-i  F A L 

F I lE 

7 

N 0 v n Z •* 

(|F 

tl  w < J S = 

1 N 

Af  AD 

file 

7 

OF 

• 0 F<  J S * 

lb 

-:LAC 

F!ll 

7 

'.  W - L«  £ - 

OF 

GS» 

14 

ft£AS 

file 

7 

No  *n£ 

C- 

»»Gp  .yb  * 

1 2 

4r  AO 

F I Lc 

7 

NONit* 

G* 

*GinOS* 

10 

*£  Au 

FILE 

7 

OF 

*CkGS* 

3 

4£60 

fill 

7 

No  Nn£- 

OF 

«t0KOb« 

b 

*£AD 

file 

7 

NoNn£-< 

OF 

«ObCS* 

4 

4c  AG 

F ILF 

7 

\wv  f rw 

OF 

• G *•  i < b » 

2 

P£  ADlNG 

CATa  S'.’ 

•‘.K'jJr**  K£r./0>  S* 

40 

*<£A0 

file 

7 

N J N 3 £ •« 

OF 

•JKu)< 

1 

5;  tsym  ca 

lied 

FH4  *«LCO*Ci 

1 TO  *0 

FUW 

«e;o 

£ I Lc 

7 

No  *'•>£* 

OF 

22 

-eao 

s-IlF 

7 

N JMri* h 

OF 

*'  iNOb» 

22 

•r  A 0 

'III 

7 

SO<OC^ 

1 

22 

« i A 0 

F x L. 

7 

\ y N L.  £ - 

L.  1 

#»04oio» 

22 
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FlcE 

7 
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C *' 
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FIlc 

7 
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2 
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-I.  • 

7 
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o- 
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fi  z 

7 

'•>  • v ; £ * 
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A 

4c  AD 

FIwC 

7 

\w  ".5  £r# 

OF 

M u * O 5 3 

22 

-»£A  j 

F I Lfc 

: 

\9 

22 

AO 

FILE 

7 
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0 p 

F.  'J  4 S • 

22 

7 sFlLtli) 


7 *F I Lc  1 0 


7 *FIlcID 


7 sFIlEIO 


7 «F1lEI3 


1 =F I MST  *0*0  ON  rlut 


1 »KIKST  *0*0  0\  FIlc 


1 *K I WST  w 0*0  On  FItE 


1 = fIr*bT  #0*0  0\  FIlE 


1 «KIhST  #o*D  0\  f l.t 


-<t-  * 

r i L - 7 

->  oc 

#•  "U‘»s 

C£ 

- l A., 

FIl:  7 

“ - o- 

"V*  J- 

it 

4w  C 

FIlc  ? 

\U'4 

• 1 c- 

*»  • ;'j: 

c : 

ij 

F l •_  £ 7 

% J ’<  h 

->  «'  7- 

<«'  '<.'Ss 

•Vt  i # 

FILE  7 

\ J M- 

. - 

/ ’ 4 • , * ■ . 3 

* - - -• 

r I L 7 

\ . *-i 

-.4  V- 

A 1 ‘ - 

£.(L 

- 1 fi.  J 

r ; L t 7 

VJ*,! 

L « ’ 

S- 

< C 

i(A  . 

fill  7 

XvMti 

: 4 L ► 

Fit:  7 

\u^» 

;i  Of 

C' 

- t_  - * 

fl:  r 

‘lo  4-k 

-_«• 

• •.•  -'j-.- 

Cif 

•<r  ;,.• 

F ; L r.  7 

Vu^-l 

r r 

*•  ..  -C'i  * 

Sii 

- *.  c • 

■ IwE  7 

N-  -i 

•-  ' •-  • 

*.  ‘ <»o  - 

'S 

-L  - 

#• : _ t / 

\ . - 

;-f  of 

c £ 

- : ••  ' 

-:.t  / 

1 •»  u' 

a •*  j'yz. 

1£ 

•*L  -■ 

F U £ 7 

\w* 

£ ■«  Jr 

h > <OS* 

d2 

4L  * 

FILS  7 

NO*  : 

£4  v7* 

* w»  - , > a 

£ ; 

f iLt  7 

* ■« 

1 4 U* 

< > 

3{  A . 

r :.  K 7 

Xu*- 

i*  oc 

»*  L/^i)Sl 

• .,r» 

F I L - 7 

V;«-i 

■_  •*  •'.» ' 

wi  f y«a 

. ? 

J 

r 1 1 7 7 

*■  • 

i ><  . ► 

* . " 4 

c w 

w i 1 2 

fl'.r  7 

Xw  • 

: *■  i 1 

.<(• 

. 4 

- a a 

flLt  7 

:.4  Cr 

4 0 4 -0  = 

IS 

£ :. 

f:„c  7 

N(W  V;. 

->  0r 

A - 4 J \ - 

1- 

F I l c 7 

\c*‘« 

14  r“r 

A J-L-.S 

\i 

•if  e.r 

FILE  7 

XL*-* 

£ •*  l<r 

»*.;4  >•>  = 

1C 

■IE  40 

-ILL  7 

\ 4 

£4  0- 

A 0*<  ! 

•» 

FILE  7 

\ 

£^  J- 

A ‘ . . 4 

6 

4 £ A .? 

F IlE  7 

:.  % . i 

A -<  5* 

<* 

■<i4L» 

FILE  7 

Vwv  .- 

. * c * 

..  ' -7J 

c* 

4£A0lM>  l»A7 

•*  t F 

T r-\'j 

. \4  .4£CJ^‘ 

S* 

■<140 

r L£  7 

\o*  » 

£ 4 c- 

a G 4 y G * 

1 

AO 

r us  7 

X «*- 

4 ' 

Af,4GS» 

I 

t-lfZ  ■ 

s 

i A < * 

IT-  llC4' 

4 0 4 0 ^ 

■<£40 

FILc.  7 

of 

A T.41-S* 

1106 

cC'V-icn  i">': 

U H 

: L ) »i  ’«  <•’ 

WO  4'./$ 

CC*MMoM  -4'.  ^ 

2 V ft 

A I * 

ITh  l*.» 

*04  ,ji 

CGV*0\  CSYg 

7 m s 

*•  j A 

i ,>  7-> 

-TWus 

c; wE-u 

it  s 

A „ « 

I7n  SOS 

A 0 4 J $ 

CO*«C%  F lSC 

C ’*■  K 

A ."  a 

ITH  7 

CC*M--L%  OECG 

AT  K 

A J A 

ITh  li- 

*04  _i!i 

CGMM  3s  IGFL 

' 0 K 

£a,0  <i 

ITl  2C* 

4 0 4 y ^ 

common  JUNC’JX  i* 

*40  * I T-  2GS 

*042$ 

COMMON  PAxT 

AH  w 

-:  ao  m 

IT-  3j'.» 

aO^D* 

Clw'ON  iCNPi*  J 

£ A l)  wITm  70^ 

a04JS 

CT'^CiN  SE&m\T  u 

Ay  • 

ITh  *=3?^ 

COMMON  ‘jY^STh  * 

A 1 • A 

IT- 

<•  10$ 

C vyGn  Sysf 

:l  !' 

A J * 

: t - j!- 

a * ■ 4 ~ G 

41  A 

::**  ^ice 

s£4r. 

FILE  7 

N v 

4 0-' 

A ' HOS* 

1 

ctis«’«'  '“ - l t C f*? 

^ -"•_ 

.>hO  •', 

1 'O 

♦ 3 *Z-' 

- £ : i 

- 7 

\j  *- 

4 (;• 

a'  4-  *>r 

4c  A 

FILE  7 

\L  - * 

- • - 

A . - ; r 

I 1 

’ ’.  » y 

F ' l h 7 

• 

-.  k, : 

'1 ' ^ ~ 

1 . 

;:u 

- 0* 

A ~ - ^S. 

• 1 

-.* 

• c » 

’<>  y j 

- .)* 

a ■<!•;» 

1 . 

fill  7 

4 C'“ 

a * 4 . • it  a 

A l 

f : l f : 7 

• -J 

- 0 * 

A .-La* 

11 

>»L  AO 

FILE  7 

YJ  • ? 

- CF 

a - - - * 

1 1 

.•: 

F I L ■“  7 

- 

- c* 

A G 4 -.7 

1 ; 

-‘.-J 

•III  7 

« , g 

* Y.  . 

1: 

, _ •»  < 

- <»r 

« - L- 

1 1 

- £ 

-*:.e  7 

‘.w  *»• 

4 

A ■ . , . 

1 1 

•* :.  - 

rlwE  7 

- r,f 

A £■  4 J • C 

1 1 

v’O 

*lLt  7 

\ i 

-« 

*;  4 .^e 

* A 

- - AO 

r I Lt  7 

>.  - -r. 

4 C* 

A 4,5* 

1 l 

vkiO 

FILE  7 

t * 

^ .* 

A * . = 

I 1 

4f  A 'j 

* IlE  7 

\ * • 

4 

A 4^35 

1 1 

-i  a:. 

FIll  7 

- 

aG?»0  *.3 

1 I 

’•  • j 

Fiw.-:  7 

\ . -- 

*•  U7 

A 4^5* 

4;  - „ 

r:«.r  7 

A%j 

••  • - 

a .;  4 _ s * 

1 1 

: i i i 

FILE  f 

\w4- 

• w* 

*('*,.£* 

. 1 

-?F  ;> 

F T . £ 7 

Scv** 

^ l - 

4 (4^5  3 

" Au- 

f : _ t 7 

\-v^ 

- Gr 

A -O  *■.  * 

* t 

- „ i* 

fi  •;  t 

N - 4o 

- (j- 

* ;HL-‘  * 

. ; 

4c  AO 

FUE  7 

Xc'*- 

4 0* 

■ 0 * J N * 

: 1 

FILE  7 

\ . ‘•d 

4 (/' 

»o 

1 1 

4*  A . 

FI.F  7 

SJ‘- 

4 G* 

a y 4(_  S* 

1 1 

- . A. 

FI.l  7 

5 GF 

a r « js* 

11 

- 

f!l‘  7 

4 0' 

1 1 

1 fcOAf/  L \ r I,£ 


135 


8£A0 

file 

7 

So  *o: 8 

OF 

•OWOS* 

1 i 

**F  AC/ 

file  - 

7 

So '•8E* 

OF 

•0*QS» 

11 

a;. 

f:lf  ’* 

7 

su*-i-:w 

OF 

WOwOS= 

11 

A.? 

6 lit 

7 

SO  4n  £ ** 

OF 

•Owubs 

n 

*fO 

FILE 

7 

S J8b£* 

OF 

* '-wDb  = 

i i 

FILE 

7 

So  VdE** 

OF 

«i(>nTjs« 

n 

FILE 

7 

SO^dE* 

OF 

•G^DS* 

i i 

* r *0 

FILL 

7 

So  *■>  i ■* 

OF 

*C-wS  = 

n 

' 1 10 

file 

7 

Sc  'i.jE* 

Or 

li 

*<C  F J 

file 

7 

SUSnE  «* 

OF 

rfO*«&S« 

n 

*£*& 

FILE 

7 

so^-k-;a 

OF 

*0*DS« 

i i 

* J 1 V 

m CallEO 

TO 

>TO*i 

k F 

COwjb 

I TO 

•»0  FOri  K'Jlr'J,. 

/•- ! rz 

11 

• 0 ■*  0 s 

TO 

Fit' 

o 

* »» I 1 1 

; 4 

• vwDi 

To 

fjl£ 

s 

* *»  I T t 

1 1 

* J- Da 

TO 

file 

a 

• * 1 7 c 

li 

* 0^0  i 

*•  0 

F ! w •_ 

• f IT: 

11 

•o*3a 

70 

* f L £ 

d 

« ^ I T £ 

11 

• IHOa 

To 

Flit 

o 

• * . T t" 

\ 1 

•O^OS 

to 

FI  l£ 

H 

• *ITt 

1 i 

*0»*0S 

TO 

F Ilc 

8 

*«iT£ 

i ! 

•oar.  5 

To 

file 

8 

• *IU 

1 1 

• >Da 

TO 

file 

d 

• *ITt 

i 1 

•080  a 

TO 

file 

a 

• * l TE 

11 

* I»',I3 

70 

FILE 

I; 

• 3 1 7 c 

1 1 

a 

TO 

F I lE 

*» 

• « i • t 

1 1 

• On  Da 

lu 

; !lc 

h 

• -ITE 

11 

*0*03 

T 3 

file 

H 

• k.TE 

11 

«*0»0S 

TO 

file 

8 

• F2T£ 

1 1 

» 0 «•  D a 

TO 

file 

8 

• -*  TE 

n 

iL«755 

TO 

r • Li 

s 

* * . Tc 

n 

• O’OL 

To 

FILE 

8 

• ^ ; t- 

n 

•0JP  a 

TO 

c !Lr 

H 

: t -■ 

i i 

•or- b 

To 

file 

a 

I 7 c 

: l 

*0*Ca 

TO 

file 

•i 

• »l  TE 

i * 

TO 

f 1 ...  E 

rt 

• *!TE 

1 1 

* 0»*0  a 

TO 

FIlE 

d 

■ rfi*  T£ 

li 

• Ok/;  j, 

TO 

file 

8 

***:u 

li 

•*  C S 0 a 

! u 

file 

8 

• P2TE 

il 

• 0 **  0 a 

To 

FIlE 

8 

• Wl7t 

; i 

* C*Oa 

To 

f IlE 

/{ 

4*J  T£ 

i i 

*C-r  a 

To 

file 

8 

•ant 

i i 

• o •*  0 a 

To 

F.lE 

P. 

« I T c 

u 

• CWOa 

TO 

FIlE 

n 

• *ITE 

n 

• v/^DS 

To 

file 

b 

**I  te 

li 

• C J 0 a 

Tu 

file 

8 

• dIT£ 

l; 

•o*os 

TO 

FIlE 

8 

• «ite 

: l 

woans 

T j 

FILE 

8 

•*r  t 

: l 

•oar.  s 

TO 

FILE 

% 

*8  I Tc 

: i 

»''.HOa 

T 0 

• IlE 

8 

• •*1  7F 

;i 

* - ~ Oa 

TC 

FIlE 

8 

• -ITc 

ii 

• OnOS 

u 

- IlE 

k 

* *•  I T F 

i i 

• 0*<0S 

TO 

F IlE 

8 

HEADING  DATA 

it 

^ECO^OSs 

40 

■*LAD  r IlE 

7 '.OMot 

a of 

ftG40S« 

1 

GETSyv  ca 

LL 

ED  Foa 

as : 

CHJS 

1 TO  40 

f 0 v L I JXDF 

n'iO  file 

7 \o*r»: 

v 0? 

AOWCSr 

bu 

U ij  file 

7 M;/-; 

- Or 

•OnuSa 

dO 

8£a0  ¥ ILC 

7 Vi 

«#  _<  < 

W 0“ 

N J^iiSs 

80 

4 1 A G FILE 

7 Sc 

^ OF 

tt  Oaub  = 

«0 

SftAO  FILE 

7 So 'In: 

^ OF 

mOhuS* 

oO 

*1  a D Ml  E 

7 SO 'in: 

a or 

808, jSs 

ou 

*«E-D  FI^E 

7 S«. 

*3 

w j r 

M ’>  - ' S 3 

*10 

- r a C MU 

7 Nv 

* " 

" c * 

*G**-.a* 

»0 

tc.AD  FI. 6 

7 Sw 

• « 

a c* 

•0 <Gb» 

oU 

4£<iG  f i„e 

7 SL 

vO 

-<  OF 

• JS= 

cO 

klhit  fill 

7 NU*s? 

H C ’ 

• L-^as 

84# 

^£•3  FIlE 

7 \J«3- 

a of 

oG 

••  E A "•  FILE 

7 \w 

i •<  •: 

w cr 

• CrOS* 

dO 

«aAG  F I •.  t 

7 SOViC 

1 or 

• -■  w ~j  a * 

80 

* r.  A J FILE 

7 S ^ 

- ')• 

«ri8->Ss 

r 0 

•*:  AO  F;l: 

7 Sc 

r 1 

H i • 

*.>:•£= 

a j 

**A0  FjLf 

7 

- OF 

• 

a j 

-la>  f :.t 

7 

1 t ' 

• m c a s 

*J0 

■*iLJ  F IlE 

7 SU'.b; 

•1  OF 

>»0« 

e 0 

4fc  Au  f;L£ 

T N,j 

v -•  : 

- 0s 

• On  D >3 

eO 

3EaG  Fite 

7 v. 

.*  - r 

-*  OF 

XOkJS* 

:ij 

-lAO  FILE 

7 

* OF 

• 'rtl.  > S 

8 L 

F IlE 

7 %>*<•• 

- ; s 

• ;s« 

r J 

FILE 

7 vu^S* 

- l.F 

• 0**  3 s* 

•sQ 

4f aG  file 

7 NJ«^£ 

* Or 

•j^DS« 

oo 

d =F I l £ 1 3 


7 =FIl£13 


1 IrfST  mOkO  C/ s FIl 


l »KI«ST  *0*0  OS  Fl.t 


136 


**EAD  PILE  7 NuM*i£4  OF  *OnoS*  42 
"EAD  PILE  7 Njm*£**  Off  AO-Ui»  42 
4tA0  FILE  7 suMiiE*  OF  ..2 
■*cAL  FILE  7 NU*9 £-<  0F  •O^uS*  a? 

-tAl>  PILE  7 0r  tfCfcC**  4? 

■*£*0  F I L t 7 N J M 8 * W OF  wOwOSs  42 
*£AD  FILE  7 N0mo£*  OF  aOaCSs  4g 
3 E A D FILE  7 S J va  £ n OF  aOWOSs  **2 
-iEAO  FIlE  7 nlmBl*  OF  RCrtOSs  42 
3£AP  FILE  7 Nj*ri£4  0»  aPNDS*  42 
*<t 40  FIlE  7 \wSoE*«  OP  aGrfwSs  42 
■*ti j FILE  7 NO^dL*  OF  a04uS»  42 
^t-AO  file  7 Su^rt->  Or  «G*DS=  42 
*<E40  FILE  7 Nvi^si^  OF  nOnJbs  «*2 
4t  AO  FILE  7 ViMrttW  OF  «O^OSs  42 
*£AD  FILE  7 \*J-4 r.£«*  Or  wjwOS*  42 
3£AD  FILE  7 Vu^b;^  OP"  *0«0$*  42 

*jtsym  called  to  sto*e  alcd^ds  i to  40  fch  aozu  iu  *fil£id  i =Fi*bT  aOr-s  os  file 


A.i  I T£ 

4? 

WCwOS 

TO 

file 

10 

-hITc 

42 

aO^Da 

TO 

file 

10 

• hITE 

4? 

aOrfDS 

TO 

file 

10 

-hITE 

42 

aOHOS 

TO 

file 

10 

-KITE 

42 

aQKDS 

TO 

file 

10 

-«!T- 

<•2 

a C - “ S 

TO 

F iLc 

10 

a*I7E 

••2 

a On  0 j 

TO 

f : _£ 

10 

a-!TE 

42 

TO 

F ! l i 

10 

• -ite 

4? 

a 0 n n s 

TO 

FIlE 

:g 

ftp  I T r. 

4? 

aO-DS 

T C 

- ILE 

10 

#»-!*  t 

4 2 

• Cap 

To 

c I ■_  E 

10 

*->17;. 

4? 

a C r’  .*?  S 

TO 

- IlE 

10 

u-iTE 

-2 

**•'  n ;s 

7 j 

5 IcE 

10 

• * I *E 

42 

ft  £r  r i 

7 

-IlE 

If 

* - I T £ 

4 2 

-Oi 

To 

- I _ z 

1 0 

* »■•  I J l 

A 2 

aOa-O  S 

To 

•ILE 

10 

a*IT£ 

42 

a On  0 5 

FILE 

10 

• f I TE 

4? 

a C^f  5 

TO 

FILE 

10 

«•< I ft 

4? 

a 0^0  j 

TO 

FILE 

Iu 

• AJTt* 

42 

r.  ; 5 

7 0 

f ! l£ 

10 

A^i’C 

42 

ft  L - “ 1 

TO 

- IlE 

1' 

ft  *!-£ 

42 

A J " S 

To 

- it: 

10 

«-I  T£ 

4c 

ftCnOS 

TO 

FILE 

10 

a n I T£ 

*•2 

a J 3 0 S 

TO 

FILE 

10 

* * I r e 

42 

a'mf.  S 

TO 

FILE 

i 0 

an  2 TE 

42 

aOnD* 

TO 

FILE 

1 0 

a*JTE 

42 

a'J--r.S 

TO 

file 

10 

an  IT£ 

42 

aCaOS 

TO 

' J l E 

10 

*&:t£ 

4? 

aO«rS 

10 

- . E 

1-. 

a a I 7 £ 

42 

« L - DS 

TO 

F IlE 

:o 

»‘ITL 

-2 

•0“CS 

TO 

:tL: 

10 

an  I 7£ 

42 

ft  - - ;•  s 

•r0 

f:i  e 

12 

a-I  7E 

•*  2 

a DA'  ■> 

To 

F I L e 

10 

• r-!7£ 

42 

• Cwn> 

TO 

r IlE 

l«l 

anITE 

4? 

• 0 4 > 

TO 

P I - E 

if. 

*p  I T£ 

4? 

wOP'S 

to 

file 

10 

* 4 I T t 

4? 

#.0-  '-a 

To 

F III 

• r 

l J 

*•*1  T£ 

4? 

*0  ►OS 

ro 

r J _ £ 

10 

*-*rt 

4 2 

ftCA'-S 

TO 

r I-  E 

:o 

n-  A 

• « 

> ^ATa 

Ec 

i'O 

llo  h£C0A3S»  4 j 

■<£A j FIlE  7 NJM::£*<  OF  aoPfCSs 


ScTSf  m CALLED  F'H  «E:>.v>  1 70  i Fo-«  AN7S*C  7 aPlLEIo  1 *r  if*ST  *Uwj  On  F Ic£ 

;E'Ay  FILE  7 \u  Mr*.  £ - 0*  auaOS*  ey 

FuTSf^  CALLED  to  STo-<t  aECLMDS  1 TO  1 FQh  anTS*C  ll  *FIlEIj  1 *FIn-»T  wO-«C  j\  F;l£ 

a n I T f o 0 a £ a 0 S TO  FILE  11 

&ea::ng  data  st t antsnc  weco»5s*  i 

*«cAO  FIlE  7 soMrti^  Lr  aOrOS»  1 

OE'Stm  CALLEO  *04  -iZjxo'i  1 TO  I FJt  I 7 *F  IlE  I D 1 *FI*:>T  *0*0  3\  FIlE 

4£  AO  FILE  7 NO  Mrf  £ n OF  *;mDS=  oO 

^oTSYm  CALLED  TO  STt;4£  k£CG*OS  1 TO  1 F 0*  1 1 9 *?k  EID  1 *FJNST  On  FIlE 

#* 1 TE  AO  *0*ns  To  FJlE  IS 

HEADING  Data  set  ! HECOH*>S«  l 

4£*D  FILE  7 NJMt»£*  Cc  ftOADift  1 


138 


1 *HkST  KJ-O  3s  ri.f 


> 


ofc  T S C4Lw£0  40-J  -FC'JwIiS  1 TO  4 -Urt 


- - AO  FUt 

7 Vj*m  i.'i 

0- 

*0^0  5 5 

22-> 

r i 

0 f 

7 VJ'-i;- 

c<* 

•t  ';  -po  ii 

2a 

V-3  Flct 

7 

OF 

m Ok  L 

?te 

■it  AO  r I LF 

7 UMc:- 

OF 

*0k0 s - 

2c  n 

-*0  T b-  if  ►« 

_/  70  bTO^£ 

p'i  C 

Okjs.  1 TO 

ta 

• -IU 

22d 

«0p*[>b  TO  r 

I Li 

i? 

* W I T c 

c?f* 

».0-»ns  ru  riLi 

12 

•»«!  *i 

?2o 

«0W*)b  TO  F 

c i 

12 

«*  I T£ 

?2e 

•OhOS  to  f 

iLt 

12 

-c 

10  IhG 

0474  sr  T Nt-IFL  J kr.cck0<;  = 

A F i 

L£ 

7 Vo'*?;*! 

OF 

« OwOb  = 

1 

OtTSVM 

CALwEO  FO-f  ^tCOrtOa 

1 TO  4 0 

F(jrt 

■it.  AJ  F 1 lF 

7 

OF 

■0^ub= 

22 

^'4.'  FlLt 

7 \V»c£* 

OF 

► J«D*j  - 

22 

•nC  *•«  ■ * ; 

F 

7 \U*«r|£^ 

Op 

2 C 

*',t  r 1 

tt 

? s-M1- 

JF 

•OtfOO* 

c2 

*<  ? M ^ *"  1 

t r 

7 \ 

OF 

P Jt j>s 

cc 

- FI 

t F 

7 W'.h  iH 

U»' 

P.litlibs 

22 

•<£  aO  F I 

Lt 

7 

OF 

* J fiUS  — 

p 2 

1 : a } FI 

i.  w 

7 

V.  P 

*0rf0*5S 

22 

•c-.ij  F I 

■ c 

? ‘«0*:h£*< 

</F 

«fOii OS  - 

22 

A J 

LF 

7 

OF 

*0kuS= 

2'2 

^ch.i  f: 

lF. 

7 \UV»  Z»i 

OF 

wOh JS» 

22 

*p.A  F! 

L t 

7 

Jr 

fcjK'.Ss 

21 

-<:  i.  J F lit 

7 

OF 

•CkJSs 

22 

4 t ft  0 p I 

tr. 

7 

OF 

22 

: i - . r lit 

7 vo  v.  1 i i 

OF 

ihJkOS* 

22 

•*  £ *- IT  p ! 

1 £ 

7 \-."drt 

iJF 

» 'j  - 0 j = 

2> 

■t  * - I . r I 

Li 

7 

OF 

•ifjKUba 

2d 

. K 1 

t £ 

7 £« 

U F 

pO'ubs 

22 

**t  A F * iZ 

7 Vw  *'dZ- 

OF 

22 

■<t  a.,  f; 

i 

7 vo^-.k 

OF 

22 

-■  c « is  riu 

7 'p  - £ •< 

Or" 

a C ■*  D b 3 

22 

Ft  O i-  1L£ 

7 \ O * £ *4 

Cr 

-i>s= 

22 

* 

•_p 

7 Vv  A - i < 

i “ 

/»  '.k!/S= 

<2 

■<  L ' • j r 

Lt 

7 \.  >*»-  • i 

^F 

#*  -.1  - . ) b = 

22 

■VO  F 

!.  i 

7 v • -_  w 

0-* 

/•  *4  0 S = 

22 

^ c.  • J £ 

'.£ 

7 s.v-£4 

•>" 

• OvJis 

id 

*riT  F 

LC 

7 V J 4 : •> 

i.*F 

0 S = 

22 

*£  A-  F 

L'. 

7 \ 0 <-  •.  ^ 

OP 

A (j  0 C S 3 

22 

V;  A.  r 

7 '.•  ••  i*-:- 

OF 

Abacs* 

22 

•'til  j F 

LI 

7 <*u  ’2 

or 

A J^Ob 3 

22 

■"  • i/ 

Li 

7 £ r 

0 p 

A 0 4f  J S 3 

2 0 

■i-Aj  F 

7 — £.v 

0-' 

• •i.twSs 

Id 

■Ji  a r F 

Li 

7 

._,r 

#»  0 n ***•  = 

i t> 

^ i.  -.  . - 

_ r 

7 \ : *1  -j  I ^ 

* 

l»  C.  rt  O \>  3 

1 7 

- r.  -.  ..  r 

w t 

7 w"-> 

u ■ 

ftOUjba 

i'2 

r 

tat, 

7 

I r 

« 0«i0S  = 

10 

«r  •»!'■  r 

lF 

7 

OF 

»•  j^jS- 

b 

rtbAL  r 

l£ 

7 < j ^ 

0" 

A )Ki.  b - 

0 

3 - A . - 

ta  £ 

7 

A jn»>S 

H 

■»c  - / r 

l t 

7 

OF 

.•  v “ 5 3 

2 

- b v " 

* • r 

i;  ")  i T v- 

••£ 

l TJ 

4 u 

* ~ ,r z. 

r? 

TO  - 

I L £ 

13 

A " * • z 

>2 

» 0 * ~ s T 0 " 

ill 

: 3 

*-  ! T£ 

?? 

III 

ii 

p.  - i T r. 

2? 

»o«: b ij  ^ 

T l : 

13 

*-lTc 

ik 

to 

1 L - 

1 i 

..- : 

ce 

0 J • • 1 * V ' 

I-' 

13 

a -* ! T . 

c ? 

F 

I Z. 

; j 

AK . r . 

?s 

*r-  ;a  ; r.  * 

1 ta  I 

1 3 

» * ! 7 £ 

> c 

.vO-1-  . TO  r 

I L £ 

i 3 

, « ; t 

ti 

p 0~  o T v>  " 

! - £ 

1 3 

c< 

*.0-*rO  iu  * 

-Li 

1 b 

j!  r*  * T £ 

2 k 

TO  p 

I L £ 

i H 

?<r 

TO  p" 

IL; 

1 3 

» » t *r 

2c 

*C  b TO  - 

I *_ 

1 j 

?2 

, v-  S T ,,  - 

i . 

1 3 

p " I 7 i 

? . 

. ^•■b  TO  FU.i 

1 5 

, - . * ; 

‘ i 

* - - s : ^ ; 

* « A 

« 3 

cc 

*■  1 -*r  b ’■  J ’ 

. i 

/ k. . • t 

l ’: 

aChhs  t : * 

I ^ £ 

1 t 

a-:  :- 

l< 

ft>’S  1:  P 

rt  i 

• j 

r>::t 

?* 

a *•  Ob  T 0 p 

j . 

i i 

a-*  i Tt 

22 

b *0  r 

ill 

i 3 

!*■•.  f; 

22 

OnO * To  c 

2 l£ 

1 s 

„ * l V £ 

22 

*0-0b  TO  c 

; L £ 

1 3 

A 4 £ 7 £ 

22 

*w-“a  T-  c 

I s. : 

1 j 

* - : > t 

2 c 

W.O-n  ->  To  F 

2 . £ 

! 4 

**■'1*1 

22 

• Tv  * 

1 4 

• ^ ; tc 

22 

-O-Di  To  F 

III 

: j 

. . : r 

? ' 

iOk'»-  Tn  r 

1.  p 

1 1 

NtWr .0 


rU  rt  VtrtFLO 


dNOO^«  7 


rv-  a Owrt.rt 


lr  =FluiiJ 


= F IllIO 


2 J *r  It  £ l J 


) = r I k ^ T *jt*d  jN  Flci 


= Fl»<bI  *0*^  Jv  r 1 Lt 


2 sflrtbT  wjJ}  O'.  S Jl: 


139 


•*:te 

22 

wG*0b 

To 

r ILL 

li 

«h  I T£ 

20 

dO^ns 

TO 

f !Lt 

13 

• fcrlTf. 

ift 

w JSOS 

rj 

F !l£ 

13 

• * 1 ~t 

lb 

*0*0$ 

TO 

f:u£ 

13 

— it-: 

l* 

fcO^OS 

TO 

r iLi 

li 

«r  I Tt 

12 

• OnT>S 

TO 

" 1 1_  - 

1 1 

i**  : 7£ 

10 

wG^OS 

TO 

f ; w£ 

li 

■ -:te 

o 

•0*05 

TO 

F It  i 

i 3 

««-TF 

#> 

»G<I'‘  :> 

TO 

r : L - 

i j 

** : ti 

4 

• 9*05 

To 

file 

1 3 

• r I 7 £ 

2 

«0*OS 

TC 

F ILE 

1 3 

WEARING 

i data 

bE  T 

rlN0j&f< 

■iEAD 

file 

7 

NU*b£A 

or 

wOriGS* 

1 

3E  r !;  Y 

C-wwCU 

FOW  mlCGfOS 

1 "0 

40  ” 0 W 

■*  £ A J 

- I w £ 

7 

£•< 

O' 

ft'.-  ) > = 

*EA-> 

F IlE 

7 

N'v.  v-  : a 

Or 

•Jn J5s 

^ > 

«t  aG 

file 

7 

sui-j  -:- 

Or 

•Or JSs 

■< E AO 

F ILE 

7 

NUMCf> 

OF 

w,‘/*<0S  = 

AJ 

FILE 

7 

\U  Mr*  - 4 

or 

*OaDS= 

t:.Al 

file 

7 

NO  <7  1 W 

OF 

« vaDS  = 

<i2 

AO 

f III 

7 

NL*.'  i* 

OF 

22 

- £ aO 

FIlE 

7 

NJMrin 

L'F 

/•  I h ‘‘i  > r 

<•.  Ao 

FILE 

7 

No*.:  £•< 

Or 

- G S a 

22 

^ * A .' 

“ILE 

7 

* * n £ *t 

w' 

C£ 

~~ 

r \ £ f 

7 

NUMh* M 

L F 

*U**OSa 

c2 

■<& AG 

F ILE 

7 

No^n i A 

Or 

• O-IJba 

22 

■*£  aC 

f IlE 

7 

OF 

i*uA')S  = 

22 

->fc  AO 

file 

7 

NOMil* 

0 F 

*o»os= 

22 

•'  £ A J 

file 

7 

No  Mri  £ A 

OF 

WOfiOSa 

c2 

- : A 1 

file 

7 

\w  'ih  £ A 

Or 

• 0 A v S a 

22 

-J£  4:) 

FUE 

7 

N Jurt  £* 

Or 

22 

■«£  AD 

FIlF. 

7 

NO^-£A 

OF 

» 0 f •*  0 b a 

22 

file 

7 

\o*m£-< 

l F 

wO^D-jr 

C.2 

-t  AG 

►'IlE 

7 

NJ*Ht-< 

v-  f 

ft  J** L) S = 

22 

*<£  aC 

file 

7 

OF 

ft  0 A 0 S = 

22 

a £ A _• 

file 

7 

NU^r  £ * 

CF 

ftOWDbr 

22 

~ *'  AO 

file 

I 

NU*b£* 

OF 

ft  C A j b a 

c2 

•«c.  aC* 

FIlE 

7 

Nw»  Mi  * A 

OF 

ft  Oft Ub X 

22 

-r  ag 

Fli-E 

7 

NUMr £A 

OF 

WGAOSa 

22 

AO 

F IlE 

7 

NL  <7  £ A 

OF 

ft  0 ft  0 b = 

c 2 

-<  i i.  L 

F l le 

7 

\ J Mr  £ A 

Or 

ftGAOSa 

22 

-'LAG 

FILE 

7 

NUMrtm 

L? 

• v* OS a 

22 

*EAt> 

file 

7 

\w-M7  £* 

OF 

ftOftLiSs 

22 

At  A-i 

file 

7 

NuMm* A 

OF 

ftORGSa 

22 

A£  aD 

PILE 

7 

\L  V-> 

Or 

ftOAOSa 

20 

•*€  AG 

file 

7 

NJM.7£k 

Oc 

ftOA Jb= 

IrJ 

A£ 

r I lE 

7 

\L*  *[»£•< 

•;5 

ft  G Al  S a 

lb 

•<C.Ao 

cLc 

7 

Mn  i 4 

0? 

ftQftJSa 

U 

4 £ AO 

file 

7 

NJ*'-  £^ 

'Jr 

« Oftlba 

12 

A-  AC 

file 

7 

\C  M 7 £ •? 

CF 

ft  C ft  L j = 

10 

•>e;d  file 

k£ iO  f I.E 
f I LE 
aU  FIlE 


NJ*o£ft 
N -J*r>  £ * 

vj*tt£»t 


•cscs= 

•0*DSa 

•GACSa 

*0«DSs 


a j T 0 r M 

called  to 

b T C E *E  CO* 

ft  ft  1 ' c 

22 

-GFOb 

TO 

FILE 

U 

ftftlTE 

22 

wO*Co 

TO 

Flu- 

U 

ft^i  it 

22 

ftoAOS 

TO 

7 !l£ 

u 

ftftl  TF 

22 

ir. Oft  Ob 

TO 

f ILE 

i *♦ 

ft  - I T£ 

22 

ftO^Gb 

TO 

F * l E 

14 

ft  a : Tc 

22 

ftCftOb 

TO 

F I L £ 

i . 

„ - I y .* 

22 

ft  L ft^l 

TO 

F I S 

u 

ft-  I Ti 

22 

LO-Gb 

T 

F Il£ 

I «• 

ft  •<  I *c 

22 

• -j  ft  j b 

• SJ 

- Iw£ 

1 

ft  ft  I " c 

2c 

TC 

FILE 

u 

ftft  I T£ 

22 

a C-Tfo 

TO 

fjlI 

1 W 

ft  A I T £ 

22 

.l>lj 

TO 

fill 

u 

ft-'I’t 

22 

ftO^Llj 

Tj 

file 

I . 

Tc 

22 

• D 

T'» 

f:.f 

u 

» - 1 "t 

c? 

W 

TO 

f ; l i 

I ft 

ft  - I T £ 

22 

- ~ 5 

TO 

f Il£ 

. ^ 

* . *i 

2i 

ft  jrT.  b 

7,, 

r ILE 

ft'  i ” - 

2 * 

^ ~ b 

: 

1 : li 

. . 

:tl 

2 2 

ft  o ft  "•  b 

7 

' E 

; ^ 

* I T 

22 

«»  jftOS 

TC 

F!c:' 

i 4 

* <m 

22 

«» 

TO 

F I E 

. •* 

• -;Tt 

22 

• . ^ * i> 

” j 

file 

1 4 

• ••  ITE 

22 

* Oft  OS 

T r; 

" . L.  1 

1 A 

ft  w * * L 

22 

A £ * r<  > 

7 , 

f : u •: 

. , 

22 

• - ‘ b 

* 

fill 

ft  o i t • 

22 

• j - f l 

* > 

1 

I ft 

ft-  I 'i 

22 

•%v*0b 

:o 

Fi;: 

. •* 

H - ’ * ' 

22 

ft  / A 

T (i 

5 IL  £ 

I 4 

7 =f- Il£2  - 


I =r'I^ST 


Fy^  iNGL*'* 


1*  «KU*1D 


1 srinST 


140 


ITE 

22 

* )•<  )S 

TO 

FILE  14 

n I Tc 

22 

«0r<'5 

Tw 

fil£  : - 

- 1 ’t 

20 

WO'OS 

TO 

f : ^ c l ^ 

i 

*0-*0s 

TO 

FILE  1 4 

~ lit. 

1 «.■> 

w j-  T s 

I • u 

*• ! *£ 

1- 

-v  ' - 

To 

r IL  - u 

- : "a 

12 

...  . - 5 

TO 

FILE  14 

- I Ti 

* 

A _'*03 

TC 

? ILC  1 4 

wiT  c 

M 

• OROS 

TO 

F I L L 1 4 

RITE 

6 

WORDS 

T< 

CIL=  14 

**  T T - 

4 

* )pr. ^ 

TO 

r!cE  U 

k1T£ 

2 

KOR'<  S 

TO 

file  u 

ADI  NO 

OATA 

st  r 

bn;la* 

Cr 

ECk  POINT 

2 

LOAD  I v > 

is  = 

COmkw E TE 


PERSON*  SA*E  OPERATIONS  AT 
ion  during  pm: 


icOo  y-iz  a\j  Turn  on  oe.h jo  fok  de* 


* * * t-  w © W 


26EN  SINCOS  2 MAThXaZI  JXOP  GM  )aTa=xOI  PGl  i r£  GENERATE  In^ti/ANClE 

«©*•*«*  * PArtSE  CA^LbO  fi«iO«Ov»v(Wt9«t 


\TaB 

1 

3 
J 

4 

5 

6 
7 


nCOv 


NV  A_ 

39 
10) 
1 07 

ri 

280  7 100338** 
14 
8 

2r>:> J933C444 

©0*0*  £^lj  ©*©« rO 


( ZGENi 
(SInCOS) 
IZ^A  TRX ) 
(=  ) 
<ZI JXDR) 
( G^OAT  A ) 
(=  J 
(XDlPOu) 


ne*  task  entry 
18 


1*3 


I 


NiK  arooment  list  entries 

123  3? 

124  101 
1 

- 9 9 'J  9 -i  y 

-**  *9  t 'i  y 

v ^ 

-9yvyV9 


£ •/ 
133 


^•NOZ  I J = 3 ANO  ( Z I 3X0** ) mNOk=10 


% EXTRACT  nANj 


»*  PARSE  C A _ ^ K J ***©©*%»©**«©*©»» 


NCOCE 

6 


\Tis 

2 

3 

«* 

5 


nE » TaSk  EnTpy 


‘.Vi,. 
2 J3 jSc j j30 


2o  D 7 i Gl1* 3^4 


1 V 

£.\0  «*»<»*» 


(nWij 
1 = 

( HAND 
( ( 

iZI  JX£-» 

( ) 

( bnd*. 
(-  ) 


131 


\:  ».  Ah->v>mc  nT  LIST  E N t ■»  I E S 
1 jl  3 

132  5 

13a  2 

13-  n 

8 ANTSRC  = VS^C  .A  DI^OD  V * • S » • 0 SfC»S=i*3 


s excite  seg^c-sTo  * a \ o 


NIX* 

i 
* 

3 


P A R j £ c A _ L * D ©©w9.HK/oaw**®** 


*CJ  Ji 

«» 


1 3*3*447.17 


ESS  jfi3 

6 

88 

b 

. >J&0G;.*00 


« AnTS^C) 
< * ) 
I VS*C> 
1 t ) 

(XDIPO.) 
( ) ) 
( i/I 

(*  ) 


\k\ 


S-'jS  T *aT 


*4T»U 


1 


I 


( SEGS) 
(*  ) 


new  Task  Entry 
20 


NEw  ARGUMENT  LIST  ENTRIES 
1 3 D 4) 


-999999 

-ft 


ANTSKCsVS^C (ADIPOL)  V=.0,.5  SEG5«2*4 


> EXCITE  SEG^t\TS  d AND  4 


PARSE  CALLED 


VTA0  ncode 


131394,717 

a 

10 

s 

2533933o4<»4 

6 

do 

d 

0. 

• 50000£*00 
76 
ft 
2 
4 

*****  £NQ  • «»••• 


'JEw  task  entry 
21 


< ANTS^C) 
f=  ) 

< YSRC) 
( ( ) 
(X3IPOL) 
( ) ) 
( V) 
( = ) 


( St GS ) 
<*  ) 


\E*  ARGUMENT  LIST  ENTRIES 

*44  45 

146  4 

: 4 5 1 

U7  -99999* 

146  -9 

149  -0 

150  75 

:si  i 

1 b'd  4 

ft  BNDZIw/*LUD  (ftNDZI  J) 


\t*»b  mcgde 


PaRjE  CABLED 

Nv  al 
23ft3S20.>3Q 
ft 
ft 
6 

23b jSEO JlO 


> DECOMPOSE  SANDED  MATRIX 


ift^Gz: j) 
(*  ) 
< LOD) 
( ( ) 
i^DZl  j\ 
O ) 


i\U  *’**'<»*' 


V.  » TtSK  t\T-<Y 


Mr  m «fcGU"ENT  LIST  ENTRIES 
l»3  i 

is*  3 

i5i  . > 

it»  -9  JN  y » V 


:o  i T JkN  OEaJi  3N  Oj^InG  ciwl 
li  S. 

\e  OEiJG  ON 


fr'ArfaE  CAuLEO 


i 

t 


f 


- 


I 

I 


NT  At)  \COoL 

N Y AL 

l 5 

7 

4 DfeUi) 

i *3 

a<* 

( On) 

3 1 

• w -%,*)  Ob«v  4 

n_k  Task  e*j;™y 

t 3 

1ST 

»' a A?OUMt\T  LIST 

E »N  7 9 I f 

. *»7 

b 

1S3 

c * 

*9^9 

IJ  ma«itw=.o  CC\v'«i»  = j vjilui  =■* 


»•*>  Ca.lE 0 


nT  a a 

NCOOE 

NV  Ac 

1 

fe 

23035?ui3O 

(“•\OZ  I j) 

? 

4 

3 

(»  ) 

3 

6 

9 

( i ) 

4 

4 

a 

( * ) 

b 

6 

1313944707 

l ANTSHCi 

6 

4» 

3 

(-  ) 

7 

t 

c»C  7 1 0G£ Jd4 

(i:  jxo**i 

b 

4 

3 

(•  > 

9 

6 

9 

t i ) 

10 

3 

19 

(*&XlT«i 

n 

4 

h 

(*  ) 

u 

7 

10 

13 

S 

1? 

(C0NVW3) 

1 4 

4 

0 

l = ) 

*t> 

7 

i 

46 

t> 

IS 

( v/ALOE ) 

17 

4 

* 

(a  ) 

1 o 

7 

s 

19 

1 

«0»b»  £\D  OAOOtt 

\t  • 

task  entkt 

?4 

160 

NE  a 

aSoUmE.T  list 

ent-<*es 

i 60 

13 

1M 

3 

inZ 

3 

loJ 

4 

i t>  4 

2 

1 03 

3 

16b 

10 

. o 7 

1 

- O -3 

:t>  i Tgf«<  Lt 

it  * 

i 7 CEri^O  0?  F 

bt-ijE  Ca.lEO 


NT  A 3 

NCOJE  NVAL 

1 

6 7 

? 

6 63 

3 

1 •»•••  £N0  *•••* 

\Ea 

Task 

ENTnY 

<r3 

16^ 

N*  • 

»mOl»E\T  list  EMkIlS 

169 

a 

1 70 

6 5 

.71 

-99999* 

In  t* 

*InT  I • A\TSh£ 

143 


i 


PAUSE  CallEO 


I 

\ 


1 


\Ta6 

1 

2 

3 


NCOOE 

b 


NVAL 
2 7 
9 

131 3944707 

» ••••• 


( **INT) 
< D 
( anTShC) 


TASK  ENTWY 

26 


172 


\E 4 AP&UMENT  LIST  ENTRIES 
i 72  24 

17  3 5 

174  V 


19 

S 

20 

s plot 

NEAR  -1ELO  IN  CONICAL 

CjTS 

El 

s 

EE 

EE  !E'_D  ( I ) LDO’lH 

23 

T 2 = 360 

3T  * 1 3 • 

2A 

R2* 1 0 • 

04*0. 

2b 

Z2*2 0. 

DZ*  1 . 

26 

H 1 = 1 0 . 

21=0.  T1=0. 

• ••• 

• PARSE  CALLED 

NTaH 

NCOOt 

NVAL 

1 

5 

13 

(E- IELD1 

2 

4 

b 

( ( 

) 

3 

d 

9 

( 

11 

A 

4 

6 

( ) 

) 

b 

b 

S9 

ildgplri 

o 

5 

87 

( 

TE) 

7 

4 

6 

( 3 

) 

6 

b 

• 3 b 0 0 0 £ ♦ 0 3 

9 

b 

HE 

( 

on 

10 

4 

b 

( s 

) 

11 

b 

• 1000'Jb*02 

12 

5 

73 

< 

«2> 

13 

<* 

8 

( 3 

) 

lv 

6 

.lOOOOE-OE 

IS 

b 

110 

OR) 

16 

«* 

8 

( 3 

) 

17 

6 

0. 

16 

b 

9b 

( 

ZE) 

19 

4 

6 

l 3 

> 

2m 

3 

• 20GCO£  *02 

El 

b 

US 

02) 

EE 

4 

H 

( S 

) 

<?3 

a 

• 1 OOOOE  + O 1 

24 

b 

7E 

( 

Rl) 

ES 

4 

c- 

( 3 

1 

26 

8 

• 10000E02 

ET 

s 

97 

{ 

21) 

2d 

4 

8 

( 3 

) 

29 

b 

0. 

30 

S 

66 

< 

Tl) 

31 

4 

0 

( 3 

> 

32 

b 

0. 

33 

i 

Nt«  TASK  ENTRY 
27  173 

NCK  A^OUMENT  list  lnTkIES 


17a 

A3 

17b 

a 

177 

-Q'y'iy'i* 

17a 

17a 

a) 

laO 

87 

lal 

0 

IbE 

HE 

1 o3 

-11 

IS* 

7a 

lea 

-11 

lab 

110 

187 

-a 

)4i> 


>JEa  LlTcWftL  TASlE  1 1 S 

Id  6 • 2b2>0Ct  + 02 

lb  0 • 1 0300t  «G 1 

27  Ef:0 


PAtfS*.  CALLEO  »«»••»»••**»••»•••«» 


MTaB  NCOOE 
! S 

2 1 


VE*  Task  EvTrtT 
2d 


TASK  T AbLt 


amjJhEnT  l!*T  Tao.c 


C'« 

-6 

-2 

-7 

5-.0GEM 

1 

LOuP 

1 

ZGE.N 
10 1 
1 

-•»>99W 

-H 

-9*v999 

k 

3an.*>:t 


u 


52  ITkaTE 
3 
5 


13  <>♦  E'IElu 

o 

-9999*9 
-99999* 
5*# 
*7 
-10 
1U 
•1 1 
o'* 
-12 
1 1* 
-12 
68 
-9 

-9 

-*99*99 

-9*9999 

-9*9999 

-*99999 

-99999V 

-9*9999 

19  87  ErlcLU 

o 

6 

-9***99 

59 

67 
-10 
112 
-11 

69 

-12 

11* 

•it 

72 

-11 

68 
-9 
%6 
-9 

-**99*9 

-*9*99* 

-999999 

-9*9**9 


15 

113 

Cn*9NT 

-9*99>* 

-99*99* 

-999999 

117 

16 

m 

-o 

-2 

-13 

-1* 

-6 

17 

121 

LAhtL 

1 0 

12  J 

23cN 

101 

1 

-*9*9  ** 
-9*9-#99 
-9***-** 
-9*v*99 

2 

146 


lJl  tfAMOIT 


r 


1* 


J 

2 

10 


2 0 

13b 

VSfcC 

4 

1 

-*  Vd*}1/* 

— rt 

- V 
7* 

1 

3 

21 

14V 

VSkC 

4 

1 

-9**V9S*S> 

-V 

-ft 
7 ft 
2 

22 

1 b 3 

i)£COMH 

i 

3 

-4b*9V* 

23 

1S»7 

6* 

-‘»'9v94V 

2- 

led 

I r*ATt 

3 
b 

4 

2 

b 

10 

1 

9 

2a 

ie-i 

3ESUG 
J I 

-4 v 

2b 

172 

Pft  I N 7 

b 

2' 

1 7 i 

£ F Z £ L 0 

b 

•tf't  ■*  4 

-4**4**  ■» 


5** 

67 

-10 

i .2 

-:i 

73 
-11 
1 1 0 

-V 

Vo 
-lb 
11$ 
-1ft 
72 
-11 
*7 
- * 
PC 
-V 

2a  l<*a  F VJ 


Ti3l£ 

1 WVCWir-.fc&n  * 


>*♦7 


< 


1 


StnHOl  TamlE 


* 

xi>  I POL 

S 

1 

0 

*193 

1 1 

40 

n 

2 

9 

1 

J 

iy^t 

40 

40 

1 

3 

nNOZlJ 

10 

1 

0 

3 J4  2U 

?l 

*0 

2 

4 

f^TSrfC 

11 

1 

0 

1 o3*t> 

40 

1 

1 

3 

I 

lb 

1 

0 

S3S4B 

40 

1 

3 

0 

NEwFtt) 

1? 

1 

0 

??« 

4 

3 

7 

0 

1 

0 

1 0**rt3b0 

Ib't 

C 

3 

tt 

BKOJPW 

13 

1 

0 

J34»btJ 

1 1 

40 

J 

9 

nNDL*B 

U 

1 

0 

344*4 

11 

4 0 

3 

10 

0 

1 

0 

1 U 4>J3«0 

1 bt 

2 

3 

.ITERAL  TABLE 

1 5 NOM'Iu 

2 * * 

3 7 IS 

*5  TlMt 

s 7 5 

5 3 FRO 

7 9 . 30000E ♦ 03 

3 b .50000E  *00 

9 3 0. 

10  8 • 3b 00 OF  *03 

11  8 . 103l,0-*&2 

18  8 .9C000E*o2 

13  7 2 

1*  * • 

la  8 *200001*02 

IS  8 *100wOE*ol 

OE maCS  TASK  EXECJTIOn  STAkTEO  On  ll/la/Tb  At  23. *0. a*. 


RESTART  at  Task  la 


FHEOuENCY  SET  TO  .120E*04  MEGA  RERT2 

aAVLENGTm  .250  METERS 


FIWL  I^EDANCE  maTrU  2IJXDP 
JSING  8ASIS  FUNCTION  SInCOS 
3\  GEOMETmV  DATA  SET  xoipol 
.OaDS ( IF  SPEC  IF IED) lo 
FREQUENCY (MEGAHERT2I  1200.0 

GROUND  CONO  IMHOS/M)  0. 

RELATIVE  PERM1TIV1TY  1.0000 


EATWACT  HND2IJ  FROM  2IJXQP  SANOmIOTm  10 

AT  COLUMN  20  SAND  NOWM*  1702.  COLUMN  NORM*  17o3. 

3ANu  oominance  factor*  12si. 

EXCITE  GEOMETRY  DATA  XOIPOL 

excitation  voltge 
excitation  data  antsrc 


real  comp  .500  IMAG  COMP  0. 

excited  segs 

1 3 

EXCITE  geometry  DATA  XOI’OL 
excitation  voltge 
excitation  data  antsrc 


real  COMP  0.  IMAG  comp  .500 

EXCITED  SEGS 
2 * 


148 


DE COMPOSE  BNOZIJ  STORE  RESULT  In  HNOZIj  »1V0T= 


tu  01  ACi  » Sb<»3.2  XIN  our,  » 277. IB 

»IVOT  HAT  10  * 23. S» 


c I Lt 
FILE 


1 OPENED 

2 OPENED 


BMl  SOLUTION  TO-  BNOZIJ* 
maa  I Tfi«  10  CONNHG  On  PRE 


I*AnTSPC-Z1 JADP- 
AT  5.0  PERCENT 


■abning — symbol  table  data  fop  symbol 


1 Bel  NO  UPDATED 


SYMBOL  I NRDbS*  *0  NCOLS*  1 

EN Tt P£0  IN  SYMflO.  Table  location  S STjk-0  ON  'l.E  1b 


rI-£  IS  OPENED 

UPDATE  SYMBOL  I COLUMN  8 NE A DATA 

“UTSYM  called  to  stobe  mecokds  1 TO 
■HITE  80  BOROS  TO  FILE  IS 


3 

1 Fox 


is  ■fileid 


1 sF 1»NT  «DuD  ON  file 


3ETSYM  CALLEO  FOB  BECOHDS  1 TO  1 fob 

mo»E  FILE  15  • -80  »OHDS • C JHbFnT  lENSTb  80 

Bt AO  FILE  IS  number  Or  bOROSs  80 

MOBc  FILE  2 • 0 ■OHDStCUHHENT  LENSTB  0 

■BITE  80  BOROS  TO  file  2 


Is  »F1lEID 


Gc.TSYm  CALLED  FOb  RECORDS 


1 TO 


1 lot  aNTSBC  11  =F  I Lt I D 


MOVE  file  II  . -80  »OPDS»CjhBfnT  LENGTH 


80 


MEAD 

FILE 

11 

VOMdEM 

OF 

*OkDS» 

HO 

90*E 

FILE 

2 * 

-aC  *0Ru5 

• C jMfifc  N T 

LTNOTm 

MEAD 

FILE 

2 

number 

OF 

*0&0$a 

«u 

SETSYM  called  fob  records 

1 TO 

40  FOM 

move 

file 

9 • - 

3200  •UPDStCJRPf NT 

LTNiTM 

*Z  AD 

file 

9 

VlMBEM 

OF 

«Om[)Ss 

HO 

me 

file 

9 

Vjy.iE* 

op 

*0»0S* 

©0 

M£  AC' 

FI^E 

9 

\J*.n  £"/ 

OF 

*0  MOSs 

©0 

ME  AC 

file 

9 

VU  * B £•* 

Gc 

*0rOS= 

dC 

MEaO 

file 

9 

9s 

0" 

«OhOS* 

©0 

mead 

FIlE 

9 

V J*©  £*< 

9“ 

cO 

ME  AO 

file 

V 

V JMr»E© 

Ge 

«OkOS» 

©G 

McAG 

file 

9 

VjXBER 

oe 

•OwOSa 

HO 

M£AO 

file 

9 

\U*H£" 

OF 

•OmOSs 

dO 

•(t  AU 

file 

V 

ML  y*i  £ m 

0* 

»CWu$« 

dO 

ME  AO 

f;l‘ 

9 

voxh-m 

OF 

40M0S» 

©0 

ME  40 

file 

9 

•.  ; 'r  . 

of 

*OROba 

©0 

•<£mJ 

file 

9 

\J9»£M 

cr 

••ORDS* 

oG 

Me  AD 

file 

9 

NUM*h£M 

OF 

»ORdS* 

eO 

ME  tO 

file 

9 

Vb*n£i 

or 

•OMDS* 

©0 

ME  A J 

file 

9 

VUMoEM 

OF 

■GRDSa 

HO 

ME  AO 

file 

9 

\*JMH£s 

OF 

HOKOS  a 

oQ 

meao 

file 

9 

VbVBE* 

OF 

iOMOS* 

©0 

Me  AO 

file 

9 

VJMhlM 

OF 

*0*CSa 

HO 

AO 

file 

9 

VL  *©£* 

0-* 

«0M05a 

dO 

Mf  AC* 

file 

9 

VUMd£* 

0- 

•0KOS* 

HO 

sT.it 

FI.E 

9 

OF 

wOKOba 

bO 

Me  AO 

file 

9 

\U  <H £ M 

OF 

OmCS* 

©0 

st  AO 

Fl.t 

9 

\u«e £* 

()e 

»G*l)Sa 

HO 

MOO 

file 

9 

NUMB* R 

0* 

ORUS* 

©0 

<£AD 

1 ILE 

9 

M 

uc 

WQMJSa 

©0 

-F.  AO 

file 

9 

Nw  Mb  £m 

OF 

•O’mOS* 

dO 

mfa'j 

file 

9 

vi.  Ma  •> 

OF 

*r  S > - 

dO 

sc  L 

FILt 

9 

\UMr.  £* 

OF 

* C M U S * 

©G 

s£  4W 

FIlE 

9 

VU-'diM 

t • 

•0 *Cba 

©0 

ME  AO 

FIlE 

9 

\OMh£M 

Of 

aOMOS* 

HO 

M£A0 

FILE 

9 

NjyB*> 

O'* 

«C 

ME  AO 

file 

9 

vumrEm 

Of 

N948l> 

©0 

ME  AO 

FILE 

9 

9Uvm£M 

OF 

•onos« 

©0 

ME  AO 

FILE 

9 

OF 

MOR0S* 

©0 

MtAO 

file 

9 

V>X*£* 

Of 

fcOMbiS* 

©0 

■«  E AU 

file 

V 

VbMol* 

OF 

» 0 w 0 b « 

©0 

kt  Afy 

file 

9 

VJMHE** 

OF 

MOMOSa 

©0 

Me  AO 

FILa' 

9 

vum©£* 

Of 

••CMOS* 

©0 

MCAO 

file 

9 

vu«h£*< 

OF 

«OROSa 

©0 

V *FIlEIJ 


1 »F IksT  «OPD  On  file 


I -r  IRS!  «C-0  Dn  Fl.f 


1 =F I«ST  «URJ  Dn  FIlE 


149 


4hS  FOk  I T t m A T I O'*  0 


-10.00 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

xOvf  f 1 1 € 
•m!T£  d 


1 • 0 •OKJS*CO«MFNT  iFN  iT  1 

•0«0S  ro  FILE  1 


-10.U0 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 


-lo. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


0. 

0. 

c. 

0. 

0. 

0. 


0. 

0. 

0. 

0. 


3ACSU*  ON  *AT*IX  HXO/lj 


Jf^t*  MATR  U-BXDjH  .0-E4  HATkJA-HXOl** 


FILE 

13 

• 

-7  to  j«wfnT 

Lf N3Ix 

^ead 

r ILE 

13 

Nu«3:i< 

of 

«0kDS= 

el 

-r  AD 

r ILE 

1 J 

Xu««£4 

Cr 

40*0S* 

cc 

AD 

F I Lt 

13 

XJXdi* 

oc 

40-«0b* 

cl 

ii  A Cl 

FILE 

13 

XoX4  £ — 

OF 

•O^uSa 

fl 

KtAD 

f let 

13 

Sj^o  £k 

OF 

«oxus* 

ci 

ti) 

file 

13 

Nu**£4 

o * 

»OmUS« 

le 

■«£  AD 

file 

13 

XU*4£K 

OF 

40^0S* 

el 

*E  AO 

file 

13 

XU  Xr*  £k 

OF 

40U0Sa 

ll 

«C.A,i 

file 

13 

W+uiH 

OF 

40WOS* 

ee 

« c.  AD 

F iLi 

) i 

M0<*£* 

OF 

tfOODSa 

el 

kEAD 

FKt 

13 

xuxr»£4 

OF 

ll 

4£AQ 

file 

13 

*i-:  ■< 

OF 

el 

t:  4 J 

F HE 

13 

xux-*i  4 

or 

ee 

*1  AD 

FIlE 

13 

OF 

«0.4L>L« 

ee 

-EAO 

FI_E 

13 

Xi  -oi- 

OF 

ee 

-EaD 

rl.t 

13 

Nv-H-4 

OF 

t»(*x  JSfc 

ee 

-t  AD 

FILE 

13 

XU  v.  d £ 4 

CF 

40- us* 

ll 

-t  AO 

file 

1 3 

XUmH£4 

OF 

4')*PS« 

ee 

■*t  AO 

file 

13 

XU  *H  £ ft 

OF 

ll 

-£-C 

flLf 

13 

XUM-»£u 

OF 

« )-jS* 

el 

itil 

Flit 

1 J 

XU Xn £ 4 

OF 

el 

A j 

F IlE 

13 

XU*t«i4 

Uf 

wO-OSa 

el 

*£  AD 

Flee 

13 

XU-*£4 

OF 

* 7-L)ba 

ee 

4 - AD 

F IlE 

13 

xu  ■*«  •;  * 

OF 

ee 

*£  AO 

Flit 

13 

XUXd-> 

Of 

*OxJS* 

ll 

-t  At) 

file 

13 

XJ  'Mi* 

•OwOSa 

ei 

■»f  AO 

F ILE 

13 

\J"i£!* 

OF 

4(jhuSa 

el 

«<t  40 

F ILE 

13 

OF 

»O**0Xa 

ee 

w:  AO 

f ILE 

1 3 

\u**»4 

OF 

M - 

ee 

*cO 

p iu£ 

13 

Xv*« 

Of 

* 

ee 

A 0 

. i 

: ^ 

\u-r.  £ ■* 

or 

eo 

f .Lt 

. 3 

xu 

UF 

• OU'Uba 

l* 

AO 

F ILE 

13 

XC  • rt  £ 4 

• 

■O—Uba 

14 

■»£  A » 

file 

1 i 

XU  44  •> 

0* 

#0i0Xa 

14 

•»:  AO 

FUE 

13 

XU*«l£4 

OF 

•OW-ba 

12 

ft  AO 

FiLE 

13 

x^  «H  * ■< 

OF 

4 j<»  Jba 

10 

A^ 

FILE 

13 

NUXp  *4 

OF 

4f>U  JSa 

B 

<Ul» 

FIlE 

13 

X.JAn  . - 

Of 

4040X4 

6 

-1  AO 

Fl.t 

! 3 

XU 

OF 

» ).jXa 

4 

*<t  a; 

FILL* 

1 A 

0» 

• )40b» 

l 

jf  TS  ¥ * CALwtO 

r G-  -«iIOnO> 

l Tu 

AO  F04 

•o.l 

F HE 

IA 

• -12?0  *0* JS.C.rfW* NT 

Lr  NOT  -i 

AO 

F1U 

1 » 

xu-* 

OF 

4U**0Sa 

ll 

■«L  AO 

F »Lc 

1 4 

XU  *«*•■> 

OF 

•Ou J Sa 

ei 

«l+rJ 

FILE 

1 *» 

XU  *9  i 4 

OF 

•(MOM 

ee 

- . 

f ILC 

14 

S0«S£4 

OF 

40h!)S* 

el 

-<F  •.) 

rui 

) 4 

XU<*f  £* 

OF 

40U0S* 

el 

*♦£  Af) 

file 

14 

NU*H£4 

OF 

•0-0b« 

el 

f..E 

14 

NU-«:4 

OF 

•OhJS* 

ee 

«EAu 

file 

1 4 

xuxft- - 

(F 

• 0*t>Sa 

el 

«E  AD 

file 

14 

NU4M£tf 

OF 

40HL'5a 

re 

kCaD 

FILE 

1 4 

XU Xb r 4 

OF 

0OKOSa 

el 

3UC 

FILE 

1 4 

XU-oi* 

OF 

40KUS* 

ei 

«*£  AO 

Flufc 

14 

xuxh-:^ 

OF 

■OKOSa 

ee 

«A0 

FILE 

1 A 

XuXh ;4 

OF 

■GOOXa 

ei 

-nOu 

11M 


13 


■ FI»*ST  4OU0  JM  F I l£ 


U «rlLU3 


1 »w«t>  o\  MiE 


150 


Vi  3 V C t 

"3  - « •»  K. 

O f>  — — <3 

V 1 V « ~ ' 


1 «V  O 3 V n . 

St  f 3 » 7 V 

•*«»«»-.  n <\ 

^ h r 'i  n v 


i i i i i i i i 

W ‘t<  > J 4j  U t ti  ti 

.*1  — Y3  r — . .T  * :»- 

3 7 t \i  V,  *•  f Yi 

c *\i  o r c i ■» 


0 3 3 3 0 

1 I I • I 


I • 

*J  a , 

s.  G .7  T r 

n —•  x.  o *-  ■»  nr 

"1  J>  o C 7 J-  «.  4 

7 » V # 7 \ 


7 7- 


I I 


I 


* <\  s\  sx  -» 


• — 4 n.  r t <\  »■ 


II  II  ll  'I  ‘I  II 


H II  II  II 


' jx  n r r < r -n  r r i/*  ✓*  n r /•  r r Si  r n -st  -/i  r /» 

-j  -'•>  w o _ > ^ i j : o : ' . .)  3 i n 3 ■>  o 

r i iYT  rtr  rvttttttTfrtYtitll 
- '>  > •'  • coo  <:  o o c o o o :> 

■ ••  ••  *»  1*.  U It  I*  l«  It  t It  U it  U ll  It  It  U li  li  li  It  li 

JJ300  5 0a030300  ' >0  0 0000300 

rrtr^Trtrtrr 


».  r r c u r i 


X -Y  Y * Y Y X r r y r X 

err  x.  c r i.  t c x.  r 

* r » 


**  » V • » .3  t 7 > , » V IT  >»»'»«%  i 

7 3 > >0  f i j > >OT3. • 003^00  > > 


I I I > 7 « I -I  I f 


•Vi  Vi  <\|  f\  '•X  <V  *j 

c o o t o • a c? 

i I i • • i i i 

i.  • i N i.  ll  It  ■ l|  • 

n»«i\i  ; » ,'.n  s 

l \ 7 37  r *W 

•r  e i c t - r m 

nj  \i  » m t « -\i 

• i • r * 


m im  i\*  ,m  n ,y  •>  m 

3 o -j  c?  r>  _ vj  j 

l I l l I I i I 


3 n 7 t ►*  n*  7 

r-  _ — « n r o m 


r yi  .t 

rot 

o r o 

C C U IVi 


t r x n 

— t o t o 

> i > r 

u : oo 

• « » * 

71  /X 

n r»  i,  u. 
C x o t 3 

t *>  O 

o » r « Tt 

o i.i  ••  i 

o r j r 

r r>  v r r 

10  13 


trxxtrrr 

O O C '->030 


o « r r x x 

U-*  J r r s - 

r o v % > v 

Vi  3 3 > 


r t Y y » .y  r 

III  III  * I I .1  1,1  I 

t n -C  t:  c c r 

V > > > V 3 » 1 


P t t 4 t »»  t 4 4 3 4 4 4 


.7  7 7 7 7 7 7 .7  > 7 <7  7 7 


A li  it  U.  it  ' 


>>  u it  it  u.  u u it  it  't  it  t it  't  'I  I 


I I I I I 


o j o n a ft  ■ t _•  •>  . . - > n n o t t . > • - > o o 3 .o  y o 

I I 4 'I  1 >f  f I 1 4 -I  •«  4 t >1  >1  •!  <1  •!  4 I C I «l  4 

tl  »'  »l  ■!  *•<  ti  ..  4‘  . *1  41  >ti  ti  U li  .li  I.  »l  tl  tJ  UJ  li  Ol  Itl  Al 

r rY  Y *r  r r <r  y Y r r r y y r r t r r r >r  r r nr 


0 <£  r-  * (Vi 

U 7 *. 

j <\i  -»  > 7 •* 

. 4 c — ’ 


I tl  d ’ll  ll  A ‘kJ  llJ  J UJ  II 


O _J  _J 

a it.  it.  it.  u . 


Ultltltltltltltv 


ti  O >u  ►-  4'  -W  O c Q i7u  O O 3 r.  O O O O C O ■*.  ' 

>•»>»<  ►-  • I •»  4 ^ 4 >1  >1  >t  «l  <1  4 <1  4 4 .]  4 4 

O 4i  Ci  X U > 14.  ti  .ti  Ui  3 .tj  ti  u.  tl  oJ  .1  tJ  ti  iu  Itl  ul  .|j  ,4. 

»Y»t  IT  T f T «‘»YTYrY».rY<r*Y.Y.TY.Y 


151 


Of  *Q*JS- 


3 -\j  if  ' 

jo  c r t c p c 
» m i - r 3 . 

t i . « - * - 


r > # ~ i » •>  © o 

r-^-tcrsT-O't'n 
o nj'H.oo  * v 

# — — r - j'  / ■Ti 


^ ? c c o .r  J 

• n.  m _*  .t  .»  -4 

o c » -h  in  n —• 


on»p?np« 
■r-^.  — x r o -o  x 
(Ml  1 It  ■«  V > 
-i  *\  n \j  r s>  — — 


•voomN-o  ri  —« 
P ►- ■ -*  X ^ -3  ^ P 
:P^#rsf^n-# 

ft  — * \i  4 o — 


N-  c X 4 n.  _ ,n  >. 
■n  .r  ,»>  c c ^ o x 

• M -•  4 V.  P 4 « 


0 3 0 


I 


3 1 T-  O O O O -.">  Q f 1 C OT  .1  Q O O T 3 O O CJ  OO  O O 

tcnrccxurr  ooTjo-croo^coccoru 


• i «J  u 
■C  n tn  £ ■*  x>  o *- 
Ajv.^nnoon 
• \>  j.  yj  ^ * vj 
O 4 -4  43  4 / <Vi  .- 


I I 


I I I 


It  H H II  M *»  »* 


M II  II  II  M 


r.  r.  n <r.  /» t/t  /•  s>  r.  •/■  r>  r ip  41  «/»</*.»/»  ip  j>  'r.  «r  ■/>  v»  p yi 
j - -3  » n o ( - n '.nooocioafi'joniino 

* ■>  '•  r ■»  or  r c t r r r r r .t  a i v r j n >r  t nc 

~oooooooc  ooooc^-Ovj  3 o o o o o 


0 o o 

1 • l 

*•»•••  i.' 

x 4 fu  n-  r*>  »-•  c f" 
^>  — N.#on» 
4r^»rci^p*.T<- 

<*1  Oj  — « CX  X AN 


I 


I I 


J 1/1  J 
■t  o t 
3T(  5 
O O 


O Z 

N U/  n ii  ii  ii  # n li  ii  ii  ii  M ii  ii  H |i  |i  H ii 
i i/i  r />  /i  ji  i/i  '/i  /i  i/i  i/i  /i  /,  /i  7i  i/1  /ut  r 
-«i'3coorjoOi3ona>tianp  3 o ~ 
3*®*.tiixn:t*r«t(Ti  * x * t t 
«j  c o c o o o oocooooooooc. 


• r •»  ft  -r  t r t r it  t t t t n't  r X t t« 

I l.l  l.l  III  ». I Ilf  III  III  III  Ml  Ml  1.1  Ml  Ml  Ml  III  Ml  ■-•  Ml  Ml  Ml  Ml 

r.  i.  Jitt  t n tut  t r c/!  pit  n i:  o x c 

r v r r v 


o o 

ft  ft 


jr  T 
3 3 
7 / 


-♦  -P  in  3 ’’  r*i  n p 

<-•  O <*  O .*  iA  ■#  t N- 

| . . S |>  „ ,\|  M 

o •>  . « .p  © t n in 


O U O Ul  o 

t 3 It  J •>  • 

O O »-«  Z O 

* nr  iiic  s 


^ IP  f Ul 

c a a 

■-*  .t  — 

• o -« 


IP  Cl 

c >t 
a.  o 


u u tt  Ii  Ii  Ii  U U U.  *1  (i  U m Ii  It  U u.  U 

oo^oocoooooooo.o^oc 

t r t .r  t t t t .i  x <»  t x t it  r x t 

» Ml  Ml  Ml  Ml  Ml  Ml  Ml  Ml  Ml  l.l  Ml  Ml  Ml  Ml  !••  Ml  Ml  I. 

joc.Drrrnrrxr.  ccxxxrut 
r ^ > I T»y»*t1T»>T»tT»J 
P*->3D-XD-J  J 3 3 3 3 3 3 3 >33- 

p p ii  ||  i*i  ii  n n p p n w p i »i  p p p 


■ Wlk  i U.U.U.U.U.U.U.V 


u*  v*.  u.  w u.  a.  v 


.i  .''nooQiiQ'jriaoooooriucoQoouo 

4 <1  -1  <|  4 4 4 •!  1 >1  ■!  ■(  4 4 >1  <t  4 4 >1  -I  4 4 4 «(  4 

I mJ  4J  Ui  III  l*i  I*/  mJ  <«J  lii  <|J  IJ  41  il  III  Ul  UJ  Ul  Ml  Mi  IW  >lf  <U  ui  ti  lli 

r r -r  r *r  v v it  -r  -r  -r  r *r  -r  <r  t r t .r  t <r  t .r  ft  ir  nr 


r*  /*>  i ppi\|N  im 
t - p > 9 p * m i 
O ti  O C ^ l)  IT  ft 
U.  • P f\J  mi  t .i  - 


u.  u u.  ►- 

Ul  >« 
IllO  JK  t 


ZU.U.U.U.U.U.U.I4.U.UU.U.UUU.U.U.U.U. 

^uin.-noaooaanoofjoooar. 

N > 4 U •!  4 -I  I 4 4 4 4 •(  4 <1  4 -I  -t  >(  4 

III  O •)  4l  III  Mi  Ul  li  -li  4J  W IU  >4i  lit  III  Ul  U Ul  Hi  Ii. 

ii  * x ft  r t r x it  x <r  x x x x x ,r  x x at 


152 


READ 

file 

13 

NOMBE * 

OK 

W0W0S= 

22 

■*£40 

file 

13 

Of 

•OwOS* 

2? 

nt  AO 

file 

13 

^U*B* w 

of 

WORDS* 

22 

■It  AD 

file 

1 J 

Of 

wORDS= 

22 

wi  AO 

file 

13 

nowBE* 

of 

WORDS* 

22 

HEAD 

FILE 

13 

NUMBER 

Or 

wORUS* 

22 

Rc  AO 

file 

13 

NU^HE* 

Of 

»0*0S* 

22 

READ 

FILE 

13 

\u*B£  *< 

OF 

wOROS= 

£2 

READ 

file 

13 

NUMBER 

OF 

wOROS= 

22 

RE  AO 

FILE 

1 J 

NU/bER 

OF 

WORDS* 

22 

RE  AO 

file 

13 

SU^ttER 

OF 

wORDSs 

22 

READ 

file 

13 

NUMBER 

OF 

wORCS* 

zz 

Rt  AD 

fill 

13 

NUMBER 

OF 

*OADS* 

2 0 

■»'  t A 0 

FILE 

13 

NUMbER 

OF 

wORDS* 

lb 

READ 

FILE 

13 

num^E * 

OF 

wOROS* 

lb 

READ 

FILE 

13 

NombE* 

Jf 

WORDS* 

14 

nE  AD 

file 

13 

NUMBER 

OF 

wOROS* 

12 

READ 

file 

13 

NUMBER 

OF 

WORDS* 

10 

i£«f) 

file 

13 

vo*tf  £R 

Of 

WORDS  2“ 

0 

READ 

file 

13 

NO"H£R 

OF 

WORDS* 

b 

At  AD 

file 

13 

number 

Of 

wOrtDSs 

4 

*EAD 

file 

13 

NUMBER 

OF 

WORDS* 

2 

itTiTM  Called  FCH  lECOMDb 

1 TO 

40  FUR 

novt 

file  1. 

• 

-770  wORDS*CUAR£NT 

LEN31R 

■it  AD 

file 

14 

NJMHiW 

OF 

WORDS* 

22 

At  AD 

file 

1* 

NUMBER 

OF 

woRDSs 

22 

READ 

f ILE 

1- 

NOMriE* 

OF 

wOROS a 

22 

4£  AD 

FILE 

1 4 

NUMHE* 

OF 

WORDS* 

22 

READ 

FILE 

14 

NJmh£R 

OF 

WORDS* 

22 

At  AL* 

FILE 

1 - 

NUMrlE* 

OF 

WORDS* 

22 

READ 

FILE 

1 A 

NoRHiA 

OF 

wOROSa 

22 

READ 

FILE 

] 4 

NO^BlR 

Of 

wOrDS* 

22 

A‘AC 

FILE 

1A 

W*trE  •* 

OF 

WQrtDSa 

22 

-<t  AD 

file 

1 A 

NUMBER 

OF 

WOROS* 

22 

R£  AO 

file 

14 

NUMo  i R 

OF 

WORDS* 

22 

•it  AO 

f IlE 

1A 

N'J^BEf* 

OF 

wOROS* 

22 

At  AJ 

FILE 

1 A 

NUMBER 

OF 

wosoSa 

22 

Rt  AD 

FILE 

1 A 

NU*bER 

OF 

wO-<US* 

22 

*<  t A D 

F IlE 

1 A 

NUMBE* 

OF 

WORDS* 

22 

READ 

FILE 

1 A 

\D4rt  £•< 

OF 

*OROS  a 

22 

At' AO 

file 

1 A 

number 

OF 

wOROSa 

22 

•<£  i»D 

FILE 

14 

NUmoE* 

OF 

WORDS* 

22 

A t A D 

FILE 

14 

number 

o- 

WORDS* 

22 

READ 

FILE 

14 

NOMp  £ w 

OF 

WORDS* 

22 

•it  AL) 

file 

14 

NjMdER 

OF 

wORuS* 

22 

Alt  AD 

file 

1A 

NUMBER 

OF 

«ORDS  = 

2? 

READ 

file 

14 

N^Mh£R 

OF 

WORDS* 

22 

•it  AD 

F ILE 

1 - 

\U4oE-< 

OF 

«ORi)S» 

22 

t AD 

FILE 

14 

number 

0? 

wi)RDS* 

22 

*i  AO 

file 

1 4 

NUMBER 

OF 

22 

READ 

file 

14 

No  Moi*t 

OF 

wOkDSs 

22 

RF  AD 

file 

14 

NUMBER 

OF 

wOruS* 

22 

w:  AC 

file 

14 

NUMBER 

OF 

WORDS* 

22 

Ac  AD 

file 

14 

NoMp£R 

Or 

aOmUS* 

22 

READ 

F ILE 

14 

NUMBER 

OF 

WORDS* 

20 

*«t  Ao 

FILE 

14 

NUMBER 

OF 

WORDS* 

In 

■it  AD 

FILE 

14 

NUMBER 

OF 

WORDS* 

! b 

READ 

file 

14 

Nv  <bi« 

UF 

WlVKt/S* 

» ■* 

wt  ad 

file 

14 

NUMmEb 

OF 

WORDS* 

1 2 

«LAD 

file 

1 4 

NJMdiR 

OF 

WORDS* 

10 

Ac  AD 

FILE 

14 

NUMBER 

OF 

WORDS* 

9 

-»tAO 

FILE 

1 4 

NuRBEr 

OF 

wORDS* 

b 

it  A3 

file 

14 

njm0£-< 

OF 

wOwDs* 

4 

READ 

file 

14 

Nu MrfE* 

OF 

wQRuS* 

2 

153 


iii  ui  m m i*i  i*i 

r>  r c r~i  ^ ^ . 

> (\j  n.f  r r>  r-  r>. 

— r\i  * n y r > t> 


\ \J  I\J  M M .\|  \ M 

0 O J .1  ■?  3 0 3 

1 I I 1 I 1 I I 

IIJ  'll  III  ••  • •*!  If  l*|  UJ 

" 1 \i  h M ,MJ 

o r-  O *•  o r«-  i*o 

r\j  f**  (+  n.  n # r*>  <1 

"\|  ""  'V  4 'V  a fti  I'l 


n-  •>*  n*-  r r>  r — 

■i.  ► ^ o o 

o « a .oin^t- 

s -*  j •<  n -i  i»>  ^ 


\ r A v * m .\i  \ 

■o  c O O *3  o o o 

I • I I I I I • 

• ill  ui  '*•  ui  ui  «*i  ill 

x><nnrc*~i\i 

a y x.  n ~ c -n  o 

V,  -ins  0 3 3’' 

-•  n i\i  i\i  n o rn  ^ 


uj  u.  * 1 uJ  .1 1 ■ u U Ui 

Ai  y / - / r*  r o 

n .i  — t or  o 

O Y-  13  T Ji/3C»*' 

-«  * .#  .r»  -•  y * o 


X 'i  *\l  V VJ  A.  “'i  v 

-3000  3 O 30 

I I I I I I I I 

U .H  ll  il  ui  UI  ll  Ui 

S V.  VI  f > 'V  -<  /l 

o^onroco 

im  c j c -»  r.  <*3  ~3 

- ^ 'VI  .(  H | ,V  *1 


II  Li  u W U U 4i  il 

6 3 r.  f i i i o i\l 

c / i c -j  S' 

3 m \i  o o y *- 

l.  'vi  — >n  — n <y 


M IV  Vl  \l  l \J  M 

& c a C O'  3 o o 

i • i i •'  » i • 
id  i.  >■•  ii  iii  ui  !•• 
• - J3  o .j  o n ,n  it 

3 /i  -i  ^ O O J) 

A-  (V.  -I  «*  f-  • 1 y- 

- rvi  ^ M r rv  m ^ 


a t/>  a 

a o t 

■)  'T  •> 

O 3 u M 

• « • 


or  r 

»-  U*  II  1*1  II 

■x  J>  rt  i/> 
'-a  oxo 
o or  ->  a 
i.’  o u o 

« « • « 


u 


o r 

u II  II  II  ••  II  II  It  II  II  II  II  M ll  II  M II  II  II  II  ||  II  II  II  II  ||  II  II  M II  II  M II  II  II  II  II  II  II  il  II 

x i/y  ’S>  i/i  •/>  \/>  i/>  «/*  •/*  »✓>•/>  <s>  */i  •/> »/»  y>  i/>  si  io  v>  »o  iT  ./>  i/>  i/t  i/»  ,/>  i/v  i/> */>  ■/> «/» •/>  •/>  o i*  i/'  v>  ,/>  <13  •/> 

— 3 300000  3 0 00  r.  O O .'3  O O O O a a 3 0 O .3  0 0 3 O 3 O 3 ll  3 J 3 0 3 0 -3 

Tt  r r t i t i r t a t t n <t  n r i t it  y t y r a raxaar.rita  > a a .r  y t a 

C;  O O C O O O C O OOOOOOOOCOOOOOCJ  OOO  "3  O C C .3  O O ' I'  o o 

•J\ 

/I  1*3  ll  I*  U.  U.  I*  I*  U U I*  !l  U II  W U.  I*  ’1  II  ll  i*  I*  U I*  U Ii  U II  U ll  ll  U U ll  ll  • ll  II  II  U U Ii 

O lOOOOOOOOOOOOOOOOOOOCOCOOOOOCOOOOOOOOO 300 
• r O 

o « a .y  a a a <i  » y t it  a n a a r r i r t t t Yai.Y-YtarTaYYaYYarr 

( I 1.1  1,1  III  III  III  III  * • I III  Ul  III  UI I III  l|l  1 UI  III  I I l.l  III  III  III  III  III  UI  III  Ul  UI  III  III  lit  UI  UI  UI  III  UI  UI 

*i  c iv  os  t li  x a ' o r.  t rt)  t i:  ’ r r.  r c «r.  r i.  r.  c d o t r r r t r r c r :•  x.  r.  u 

r n y y > » T T > > i » » r T > » >>*>>  »y» 

Vi  JOOOOO.)  ) 30000JDJ030  ; JJ)3J  30Y.)0300  3 3 >3  3 >.3  J 

O 1 


Y i\i  ivm  \ i'i  in  m (\i 

UlOOOOOOOO 

*-  I I • • I I I • 

*-*  Ul  ui  ul  ul  ll  *J  lli 

r-  f U'  »«  O > 41  <* 

a •*>  •%  *3  O li  i*3  ^ ■* 

omr  » />^u*''no 

I*  Hi  / .1  .V  r|  A|  (1 


3 ii.  U.  Ii  U U.  il  II  ll  Ii  Ik  I 


, Ii  Ik  Ii  Ii  II  Ii  Ii  b.  I 


WOuli- 
>*!■»►< 
O Iii  o .t 

* IT  * « 


/.  .»i  o ;«j  o 

u<  O Ui  O ui 
O r a Y a 


•/)  .i  o o o o o r.  o o o o o j o o .a  o o o .0  o o o o o o o o O o o o o o o it  13  o 30  o 

»-  . •<  4 •«  4 ■/  -I  -I  «t  -i  *J  M -I  «l  I .1  >1  «»  •*  « «t  «»  -I  -I  <|  4 *i  .*  •!  «t  *1  *«  **  «l  «f  -I  C •*  *1 

'li  O Uj  Ui  ill  Ul  ui  'Ll  ul  III  ul  ul  >li  Ul  '.ii  lli  'll  Ik  U .u  Ul  U lli  uJ  Ui  -li  ii  l>J  ui  Ul  111  U ■ Ul  Ui  III  tu  ul  ui  Ul  uj  lli  Ui 

i3  > r » IT  IT  1 3 3 fr  T 3 1 T it  3 (f  Y 'f  7 .T  r T Y IT  if  Y «T  Y » 3 3 it  3 i>  Y Y » 3 Y T 3 


* r-  K-  r •n  n n 

.»»  fk  _ .-*%  4 fl 

> v *3  r <\>  n «n 

C t At  .n  > J>  CM 


f\  S»  ^ n,  N N 

'•1  f 3 (V  / * \J  ~* 

■r  o m it  t c *» 

— \j  * \j  & t — 


s v o m n x n 
> r>-  m .»  ■■n  *.  in  ^ 


I 


s*  ->  x c p n m i*- 
\j  /.nr-  j -■•  ,n 
• om  n n - "in 
v -X  .M  — n rv.  <M  — 


•o  'T  j * i r .n  <Vi  c 

'VJ  » "1  vj  r ~*  s T 

r r-  ^ < t ■•'• 

MO  rtj  -•  <h  fV| 


.*  m .n  >r>  .»  n m 

<M  nj  " N ■?  jI  Aj  \ N 

r»  •->  .n  ji  xi  n -n 
# \i  -n  r ■*  n n 


z z 

lu  M :*j 
1 SI  X 

rax 

"»■*■> 


oc  o 
o ' 
« ic 


j > • 
-*«•£> 
14.  O M 


•kl  II 
iW  T l,| 

ca  a 


r. 

T fM  <\i  .\i  <\i  r\J  AI  \J  M l\i  M Ai  V.  'VJ  M .M  \j  M X l\i  ."Vj  -M  A.  'J  \J  \l  CM  Ai  M Ai  CM  O .T>  J1  .»  \|  (J  .r 

3 M \J  \J  AJ  VJ  M \l  'VJ  \J  Aj  ,M  \j  >,  \j  M \j  \J  \J  \J  M M M M Vi  M M 'M  M M M M « -«  -• 

u r 


it  >■  it  it  it  ii  n ii  it  n ii  ii  n n ii  it  n ii 

/li/'t/I  /»  s/i  />  i/v  /i  ri  i/v  » •/*  ji  a'  yv  ‘/i  si  n 

- - ) J)  1 i J Q '1  1 -1  J J D 3 O .3  O *3  O 

t r ilia*  x r y t i i nia  i i 

o c r»  v?  -3  o o o a o < • -n  o n o o ~ c 


ii  ii  ii  n n n ii  n n n ii  ii  ii  ii  n i< 

i f>  '/v  n s\  i/v  r S'  in  •/)  .i  n /i  v'  o -yi  y 

; ' m .1  a i o r>  -i  -3  n i a i - 

> » y xx  i t a t y x n.  x x n y 

> c <:  •.■'  o c o c o - • o ii  o o 1 


t * » « 


y»  o 
Q l 
■u.  o 

a ■ 


It  h ft  ft.  U Uhl*  U It.  It  <l  U I*  (4.  It 

. .3  O ij  O C J 3 O O O o o o o o o 


Ii  «i  It  It  li 
O O O O -3 


(X  T T f t » Y » » 


Y T 

i r t t x Yi  n r.  x ii  t?  , r i - r r r.  c 

!>JY»tTT»5TV>>  »»>  i 

) 3 J Y > *J  J Y 5 :>  3 


r y i r y t J Y 

in  iii  i«i  m • 

i r i c r 


Y.  Y Y t X 


>>yv%>*»TVjj 


n n n .*i  n in  in  n m in  m .o  in  <n  «n  n >n  :i  m rn  r»  «n  in  m m m m .n  • 


0 


i'i  <n  .n  n m ■ 


•n  ^ r-  g m in  -c  * 

a «n  O C C Vi  •>  JW 

o n r » ^ r-  tvj  • 

u.  • i»)  <n  p ivi  n j* . 


u.  U.  Ik  ►- 

tj  n 

uj  a uj  ►-  i 

> •«  > • < l»J 

OiiiOiIl- 

r r % « •-«  n 


m 


-j 

mi 

<1  Itj  Lw  UJ  UJ  iU  'tJ  UJ  lu  UaJIU  Ui  Ili  Ul  '|J  al  'JJ  UMU  UJ  111  '.,1  Ul  UJ  Ik'  .u  Ui  Iti  lU  UJ  tai  UJ  UJ  'ii  <vi  Ul  Ui  u. 

Ij-i  J .1  . J _J  J j _i  _J  _j  _J  I _J  _J  _ I _l  .J  -J  J .J  _j  _ 


U.  U.  U.  U.  U .4.  U.  I 


U.  U.  it.  ik  • 


U.  Iv  Ik  U.  U.  Ik  U.  U I 


U.  '.k  lk  U.  *V  U.  Ik  Ik 


xi  ui  n o n o o o o o i o u c o c j -3  o o j ^3  a a bi  ii  o o .i  o a a j a .i  o o o 

►-  > 1 4 'I  1 'I  'I  -1  1 '1  i|  '1  4 1 1 «l  1 4 O •!  4 IT  1 4 I if  »l  I •!  H «i  -1  «l  -1  4 U 

mil I kJ  il  J »ii  »j  UJ  U*  ul  ki  iki  14J  til  |l  14J  il  uJ  uJ  iJ  li  UJ  li  III  I4J  Ili  liJ  Ii  ai  Ui  ii  111  'll  ill  ll.  Ik!  Ul  Ik 

in  y r t 1 it  1 it  I 1 t 1 1 r it  .t  <Y  .>  r y i .r  y r y i r t t <r  x ir  a n r > .y  x x 


155 


5c  TSym  CsllE;  FCM  -»c5D>iC-5  1 *0  *0  rUR  bfcOLiR  1 •*  =r  [ccIJ  l »c  mil  .u^t) 

«oK‘.  FI.E  1*  , -770  •E.r-Ji.CuRRfdT  LEN3T-I  770 

Rciii  FILE  1*  \u«.-i£R  OR  • CRijSs  ^ 


fVj  \ l\i  fy  W >7  \i 
O O O 5 0 0 0 0 

I I * I • I I I 

'•I  III  111  .«l  I.  ' cl  Cl  >1  I 

i*  «v  > -c  f -«  r,  n 

» 1 * 7.  I r » J 

r r - o -r  f-  -« 

•Vi  C — O • O — F- 


II  II 


■X  . >1  V ■'J  \ \ \ 

•j  O O O J 3 J O 

I I I I I I I I 

«cl  cl  I I '.I  l*-  »•  <U 

r — o cr.  c — r 

-«  1/  r o •»  — o -c 

a j i . -»>  ji  ~i  *r 

\ ' a i a a r\.  o 

i li  l 


|\|  A V \ V *)  \ ,v 

- 3 0 0 3 0 0 3 

I • I I • I I I 

i r n rvi  m o i 

— • i r ^ o r j> 

— • -P  1 ,f  r~~  r~~  r 

— J — . r r i>  -* 


li  ii 


A.  O A.  A •*  ’lW 
O 3 0 0 0 0 0 0 

I I I 1 I I I 1 

'll  'ii  'cl  *1  H ’ll  ■«!  d 

— • o r ,o  ,r  o->  c 
r t t ~ ,c  — r r 

\i  r r . 3 ^ 3 r £ 

—•  A.  cl  -V  N \ \l 


I I III 


\i  — • \|  A*  O X Aj  Ai 

0300. r»  ooo 

I I I I I I I I 

•*-  ■*!  c'  i.  U Ul  14  .iJ 

or.'  i r.  r .a;  -a 

*X*t  *'•*•.*  *40 

o o o n fv  >»*--« 

-i-.avj-.'- 


ii  ii 


A M i\J  M \ X V f\j 

0 C 3 3 o <•  3 O 

1 » I I I I I I 

C A r V 4 r> 
ro  r^T^or 

— c x c -■  r n -i 

— ■*  <v  — t a.  .-o 

t ii  i 


Vi  AJ  Aj  \J  Aj  i\j  iVj  i\j  I\j  iVj  Aj  Ai  IM  X AJ  Aj  Ai  AJ  Ai  AJ  X A'  t ’J  Aj  X AI  X Ai  Ai  n /:  il 
M M AJ  \j  !\j  A<  \|  \|  IM  ,\)  AJ  M V,  XXX  "XX  X X X ‘X  Vi  X X X X X AJ  - • 


A'  A’  -A  \i  \ A'  <A  A 
3 3J30330 

I 1 I I I I I I 

-ki  cJ  b Ul  U >1.  c. 

x r -»  »>  » o ; 

-«po-rro*>>  c c 

— • x.  n k n *-  ci"  o 

f*-  A,  r - • it  • • o -« 


H&VE  FIW£  2 , -sO  »GhOS.CU*<R£NT  I.FNjT-i 
AO  FIlE  if  >iO«r»**<  OF  *0*05*  i 

*0>f£  flLc  2 . -»0  »0h  js.CJrfwf  NT  LENjH 

• RITE  80  wORDS  TO  FILE  2 


• r >\j 

4)  A,  r u 

t ^ \j  »*- 

i ( •*>  r- 


» r -T)  p t - /i 

— •'  » !•  — :?  — 

• ~ r / t r 

■3  c * -v,  n > n *\j 


» * » A 


r — 4 r r i.  t.  n 

» » r c ~ v r 

v •-*  r \,  o f»  t 

vi'-  \j  t r - 


rr  *C  IX 
n n i fi  r . 
r-~  f >•««-»* 


/I  / f 3 \J  1 


-J  J O 0 3 

r c » c a 


o <r  o c c 


1 A t »/> 

• r 

j t d r 
o o i>  o 


» I)  0 it 

o t o 

> o 


tl  •->  i o D 
r T » r > 


'4  » " I*  " H MM  " >•  II  II  II  II  II  II  II  II  II  II  ||  |)  |.  ||  ||  ||  ||  ||  ||  || 

't  a '/i  •/!  /'!/’■  /»  'f  x j\  />  (✓>  ,/>  />  -yi  'z1  yi  i/i  ./i  />  r />  a -n  %/)  *r.  x i/i 

’ l,  0 ^ ^ 3 O 3 O 1 O O 1 .'i  *)  o ■ i o v,  o i.i  i o o 3 <3 

3 i '»  < r r r r r > •.  y y * ..  i 3 r r;  7 1 t ft  t r m <t  y 

• J :j  r*  1 • O O GO  O O 3 J C O O O O O C O .1  C '3  C 

* * *<•<**»«<»  *«*«*« 


II  II  II  II  II  I II  It  II  H II 

ia  '/i  '/i  a / ia  / y /!•/  r 

‘ ' o 3 '3  -.i  00  1 o 0 .1 

Y 7 Y Y *Y  Y O .X  x 'X  rr 

OC*  00  O c c o o o 


•A  'YU  I.  U li. 

C-  I O 3 .3 

•X  o 

1 I H .7  T Y 


1 Y Y r I Y 

id  id  ill 


« it  u U.  It-  U It  li  It  It  It.  lj  I,  U It  It  U It 

> .3  O >.)  O O O O O v3  O O O O CJ  w O O O 


7 ' > V J y 1 1 I 


\j  /.'•*  3 


“>  - 
s y 


Y Y >r  Y Y r Y Y T T Y fY  Y Y 
4 * * ‘'4  •"  '•*  III  •••  1 4 ••  • It  1 HI  III  III  '.I  III  III 

1 m»  z r n r.  r » . 1 x:  r r 1 r t r. 

*.  V » Y Y > > ■ ) } 7 » > } ) T 7 

3 J .*3  J O 3 3 “I  1 .3  3 *'  .>-)  “>  > Y 

s 7 s r * 7 ' y ////.-/  ,-*  » 7 


O O O D w 

Y Y YYt  Y Y fY  Y Y r Y Y <Y 


y v » r t > 


> * > > > Y > 


1 j ^ ^ ^ t j ,y  t j!  z > .Mr  j > > 7 > 


i**  -*  t x u>  j o r 
— • .*7  7 

r f~  J — c X o 

i in-iM  - o s 


.»  -1  m ,/>  ,n  m a ■» 
<r  r.  o i)  1 j a > n 
'~-.no  n—*x  p *» 
\j  ~<  \j  m y 


>.  I*.  •».  u.  u. 
>- 

•A  Hi  Cl  HJ  .3 


«J  4/  .O 
O ,1  J 

3 U It 

► 

i/>  it/  o 

•u  3.1 

**>  » Y 


■U  <U  'tl  ul  tu  14.  Ui  HI  Itl  .J  '.tl  IU  UJ  UJ  ’.»!  V I4J  O tl  ui  Ul  Itl  ill  Ul  It.  tJ  -tl  It/  III  ul  it!  111  Ui  Ui  Ul  !tl  Itl  ixJ  UJ 

I i-!_l.!.j_l_l-i_i_!  j -j  J.IJ.J  J J / | I 1 _J  - j — » J _l  _l  _J  _l  _J  J _J  _j  _| 


't  U It  It  It  It  *t  It  It  U It  U.  ^ It  it  U I 


It  U U It  It. 


. it. 


U-  U lt.  1 


.X 


It  U.  lb  u.  It  lb  It  I 


o c3  * non 

1 f 1 -I  «t 

41  ’ll  Itl  UJ  Itl  -li 

r r (r  ,r  nr  r r rr  -v 


3 o nnuoaoi'i  .1  o n o .1  a 00  .3  'ci.'.'jjnoooc^ooano 

I -I  I -I  «t  •!  'I  ^ | .f  4 J ,|  »t  if  <4  '4  I «l  «-t  I 'I  >1  <]  <|  «|  ‘I  -I  -t  <4  4 <1 

tl  tl  Ul  ItJ  'tl  ui  ..4  Ul  Itl  Ul  lt4  Ul  tl  t'  b uJ  U-  tl  'tl  Ul  <U  Itl  ui  ul  ’u  lt4  Ui  It  UJ  Itl  Itl 

y y .y  y <y  nr  nr  <y  y rr  't  t y t r »r  rr  n nr  nr  nr  >r  «y  r rr  n r .y 


■-•aiVIMlMNiNN 

A J -P  A jl  N N O 

r~-  x O f*'  < 

• 0 \/  o 


157 


MOVE  FILE  l . -BO  HOMOS. Client  LEN.il-*  ou 

MEAD  file  1 NUMBEM  OF  hoRDS.  all 

mow E file  1 . -BO  aOMOS* Comment  lENjTm  aO 

AMITE  BO  WOMDS  10  FILE  1 

FINAL  VALUES—  PRE.  Z.ai  IHE  H.IB  nCHE  1.09  ’ 


rutsym  called  to  store  records  i to  i fln  i is  .filed  i =f imst  »dmd  on  fil 

MOVE  FILE  IS  . -BO  .OMJS.CUMRFNT  LENjTi  oO 
.MITE  BO  *OMOS  TO  file  is 


SEOMETRY  DATA  SET  AODOL 

- I u£  1 OPENED 

AMITE  mao  AOMOS  to  FILE  1 


setsym  cal 

led  F OR  RECOWDS 

1 TO 

*0  FOR 

XDIPOl 

a =eilEid 

1 srlnbT  wuwj  Dx  r 

mO*E 

FILE 

M • 

-.VO  »0M3S 

•current 

LFN3T i 

A AO 

3£AC 

FILE 

b 

no  *3-:^ 

OF 

•0R0$» 

11 

READ 

FILE 

8 

NUMB£R 

OF 

nOROSs 

11 

READ 

FILE 

8 

XJRb £R 

OF 

•ords* 

11 

read 

FILE 

8 

XUMH£» 

OF 

moaoSs 

11 

RE  AD 

file 

8 

XUMbER 

OF 

-CRUS* 

11 

c AU 

file 

8 

XU  vm  £ R 

OF 

*ORDS= 

11 

-c  AD 

file 

8 

XU*Mt* 

OF 

*0i<bb3 

11 

*EkO 

file 

8 

XU *n£* 

Or 

«ORDb= 

11 

READ 

file 

8 

XUMrt iH 

OF 

#040$« 

11 

■it  AD 

file 

d 

XU Mb* A 

OF 

wObOba 

11 

Hi  AD 

file 

8 

XUMH£k 

OF 

KCnObs 

11 

-tE  AD 

F II  £ 

8 

XUMH* h 

OF 

•rOADSs 

11 

R£  AD 

FILE 

8 

\UMb£R 

OF 

tfORDS* 

11 

*tAD 

file 

8 

xu  Mb  £ h 

OF 

WORDS* 

ll 

*F  AO 

file 

8 

XU*H£8 

OF 

WORDS* 

11 

«EAD 

file 

8 

XuMb-V 

Or 

fcCADSa 

1 1 

Hi  A'j 

file 

8 

NUMfit'A 

C" 

w 0 R 0 5 s 

1 1 

■<£  Au 

file 

8 

XUMbER 

Cr 

rfC**OS  = 

11 

AD 

file 

6 

XU MB Eh 

OF 

•*  Um  D S = 

11 

*•£  AD 

file 

8 

\UM8£A 

Ur 

i040S* 

11 

RE  AD 

file 

8 

NUMBER 

Of 

rfORDS* 

11 

READ 

file 

H 

XJMo£R 

OF 

«IO*DS« 

11 

READ 

FIlE 

8 

XU  Mb i R 

Of 

#ORl>S* 

1 1 

RE  aD 

file 

8 

XUMo  £R 

OF 

aORDS* 

11 

Rf.AU 

file 

8 

XL  M*j*  R 

OF 

• i-  >5* 

11 

READ 

fill 

8 

\uMrtZb 

OF 

bOROS* 

11 

■it  AD 

file 

8 

XU  Mb  £ R 

OF 

* -j5  r 

11 

ni  AC 

fill 

8 

XJMnEH 

u- 

aOhOSs 

11 

READ 

file 

8 

XuMfa  £h 

OF 

aOhU.>s 

11 

R£  AD 

FILE 

8 

XU*b  £ A 

OF 

*0*08* 

11 

-ft  aD 

file 

8 

Xu  mm  £ A 

OF 

*G*<uSs 

11 

Rt  AG 

file 

8 

XUMfe  £8 

OF 

»OrDS* 

11 

-'F  AD 

file 

8 

numhER 

OF 

• O-'DS* 

11 

hi  ad 

fill 

8 

Xu  Mn £h 

OF 

nCiHj  5* 

11 

•it  AD 

FILE 

6 

xu*b  £a 

OF 

aGhu  5* 

11 

READ 

'•ILl 

8 

XUMrlEH 

0C 

wORDS* 

11 

Re  AC 

file 

8 

XUMHEh 

OF 

a 0 A 0 b = 

11 

READ 

FILE 

8 

xu  Mm  £ h 

OF 

mQwDSs 

11 

R£AC 

file 

6 

XUMbE^ 

OF 

wORDS* 

11 

■it  AD 

file 

8 

XUMbER 

OF 

WORDS* 

11 

sftsym  called  fo-<  recomos 

1 TO 

1 CUM 

rtXTbML 

11  .FILED 

1 sflwST  *uPj  D*  f 

move 

file 

n • 

*su  aO*OS 

•CuhwFNT 

LC  N«i  T H 

00 

«£AD 

file 

u 

XUMoER 

OF 

wORUb* 

eO 

•••  NO  LOAD  F OH  STRUCTURE 


158 


ANTENSA/LOAD  PAhAM 


:o^u*  Data 


COLUMN-  1 


keal 

lM&bINAWY 

MAOMTUOi  wnAifcOtj) 

"t  al 

JMAoJ \4*Y 

-A  J\  I T U.'lt 

»HASE  ( 

1 -10.00 

0. 

10. 

no  lbO 

• 0 

2 0 . 

-io.oo 

10.  Ov 

-90. uO 

3 -10.00 

0. 

10. 

00  loO 

• 0 

4 0. 

-10.00 

1 0 • 0 0 

-90. GO 

b 0. 

0. 

u • 

u • 

o 0 • 

0. 

0. 

o. 

7 0. 

0. 

0. 

0. 

9 0 . 

0. 

0 • 

0 . 

9 0. 

0. 

0. 

0. 

10  0. 

0 • 

0 . 

0. 

11  0. 

0. 

0. 

0 . 

12  0. 

0. 

0. 

0. 

13  0. 

0. 

0. 

0. 

1 4 0. 

0. 

0. 

0. 

lb  0. 

3. 

0. 

0. 

lb  0. 

0. 

0. 

0. 

17  0. 

0. 

0. 

u. 

lo  0 • 

0. 

0. 

0. 

19  0. 

0. 

0. 

0. 

20  0. 

0. 

0 . 

3 . 

21  0. 

0. 

0. 

0 • 

22  0. 

0. 

0. 

0. 

23  0. 

3 . 

0. 

0. 

24  0 . 

c. 

0. 

w. 

2b  0. 

0. 

0. 

c. 

20  U • 

0. 

0. 

J • 

27  0. 

0. 

0 • 

0 • 

2b  0 • 

0. 

0 • 

o • 

29  0 • 

0 . 

0. 

c. 

jO  0. 

0. 

0. 

0. 

31  0. 

0. 

0. 

0. 

32  0. 

0. 

0 • 

w . 

33  0. 

3. 

0. 

0. 

34  0. 

0. 

0. 

0. 

3b  i). 

0. 

0. 

0. 

3b  0. 

0 • 

0. 

0. 

37  0. 

3. 

0. 

0. 

36  0. 

0. 

0. 

0. 

39  0. 

3. 

0. 

0. 

40  0. 

0. 

0. 

0 . 

E-F IELO  XATRIX  I 

cylindrical 

cooroh.ate 

srbTLM 

NEAR  FIELD  FOR  FIE 

L3  DaTAsNO^COD  -EURRtNT 

Data* 

1 -G£o*£TnY 

DA  T A = a j 1 P()l 

\0kmalIZaT10N 

1 FACTO* 

•E02E- 

01  V/4 

constant 

who*  io.o 

z 

= 0. 

i 1**0) 

t ( T^t  T A ) 

t m 

i)a-$A  I \ 

Tn=  MAGNITjO*  PhaS£(0l3> 

MAS*! T JOE 

p-»AS£ ( Dto ) 

* A j\‘I  T J'iE 

PHASE  <Dt(i) 

NJH"A,_i<E3 

0.0 

• 89S£-0  3 

ib-  . 

• 2 72t-0*» 

1 4*. 

• 41U-04 

-140. 

-27.1 

10. 0 

• 7 i Ofc -0  3 

127. 

.4931-02 

-33.4 

• 3 4 1 C -04 

— 1 40  . 

-12.1 

20.0 

• 760E-0  3 

129. 

• /02c -02 

79.0 

•Jilt -04 

— 1 4 0 • 

-*.12 

30.0 

.913E-U3 

149. 

• 30  9t -02 

33.1 

•31 1 ■ -04 

- 1 4 0 . 

- 1 1 • t* 

40.0 

.61 7E-0 3 

132. 

.%<»*L-02 

1.41 

. i 1 lc-'J4 

-140. 

-lc.9 

bO.O 

.8jbt-C 3 

122. 

• b2  tL  “<»c 

*3  • 3 

• 3 1 1 1 —0  4 

— 1 4 0 . 

-i  o.  1 

*0  .c 

• ©67t -G  3 

136. 

• iC2t-01 

11*. 

• 31  1 i-04 

— 1 4 0 • 

-4.32 

70. 0 

•b92i-0 J 

loo. 

. Io7t-01 

127. 

. 3 1 1 1 — 0 4 

-140. 

-b. 

*0.0 

.676t-03 

163. 

. bblt-Or 

130. 

. Jl 1l-04 

- 1 4 0 • 

-11.2 

90.0 

.b*at-0  3 

163. 

0 . 

0. 

• 31  1 t -J4 

-140. 

-27.  3 

100.0 

.67*1-03 

Ib3. 

• oDlt-92 

-49.6 

. lllc -U4 

-140. 

-1  1 .2 

110.0 

•b92r -03 

150. 

. I07t-01 

-33.3 

.3! It— 04 

-140. 

l?G.O 

• *6  7 1 -0 3 

139. 

. 1 2 2c -01 

-cO  • 7 

• 3 1 1 S.-04 

-*  40  • 

-4 . 32 

130.0 

• «3br.  - 0 3 

12?. 

. b22c~02 

-*4.3 

.31  IE-04 

— 1 4 0 • 

-lo.  1 

140.0 

•bl 7t-0  J 

132. 

.44  »O-02 

-1  7*. 

• 3l 1 L-04 

— 1 4 U • 

-i  2.  ** 

» 6 0 • 0 

• * i 3i  - 3 3 

349. 

• 30  vr  - w 2 

-.22. 

.31  1 C.  - 0 •• 

-140. 

-11.6 

160.0 

• 7*  Jt  -,3 

125. 

. /02C-02 

-1D1. 

• 3 1 i C — 3 4 

-1  40. 

-*•12 

1 70.0 

• 710E -03 

127. 

• 4*#3t  -02 

145. 

• Jl It -04 

- 1 40  . 

-12.1 

1*0.0 

.*961-03 

Ib4. 

•2 /2t-04 

-J2.2 

• 3 1 1 1 -U4 

— 1 4 0 . 

-27.1 

1 vu.O 

.7101-03 

127. 

• 30  Jr  -02 

-33.3 

• 31 1 i -u4 

- 1 4 0 . 

-12.0 

200.0 

.7*0t -03 

127. 

• 7 U it -02 

74.3 

• 3 1 1 t - 0 4 

-1  40. 

-9.  i 1 

210.0 

. v 1 3E  * 0 3 

14**, 

• 3O4E-02 

3-*.^ 

• 3 1 1 1-04 

- 1 4 0 . 

-11.9 

220.0 

. * 1 7t-0  3 

132. 

• 44*1-02 

1 • Ob 

.-1  1 C.  -0  4 

— 1 4 0 . 

-12.* 

230.0 

• 836£ -0 3 

12?. 

. 34  *» t-02 

*3.4 

.31 1 t-»4 

- 1 40  • 

-1  0 • ? 

240.  C 

• b*t»t-C  3 

1 3*. 

• l22t-0 1 

1 1 *• 

. J 1 1 - -u  <* 

- 1 4 0 • 

-4,  J4 

250.0 

.8921-03 

150. 

• io 7c  — 01 

4 28. 

• J 1 1 t -04 

-140. 

-b.4b 

240.0 

• *7*t -C  3 

153. 

.Dblfc-02 

1 Jit. 

.31  It -0  4 

- 1 40  . 

-11.2 

270.0 

.6671-03 

163. 

0. 

-39.0 

• 31  l t “04 

-1*0. 

-27.  J 

2MU  . 0 

•87-E-03 

IbJ. 

• 33lt -Or 

-4  9,0 

• 31  It  -0** 

- t 40  • 

-i  i .2 

290.0 

•n«2h-9 j 

150. 

• 1 •>  7 c - 0 i 

■31.3 

.31  It -04 

- 1 40  • 

— '3  • 4 f* 

300.0 

• 6**1 - ' 3 

13*. 

« 1221-0  1 

-00.7 

• 3l lt-44 

-140  . 

-«•  • 34 

310.0 

• o36t - J 3 

1??. 

• 61  *t-«)2 

-*4.0 

• 3 11 1 - 0 4 

— 1 4 0 • 

- i 0 • 2 

320. 0 

•61 72 -03 

132. 

• «4 11-G2 

-1  7*. 

. 3 1 1 C -«•• 

- I 40  • 

- 1 2.  * 

330.0 

.9132-0  3 

14**. 

« 34  9C.-02 

- 1 ??• 

. Jl 

-140. 

-11. H 

3.0.0 

• 7601-0 j 

127. 

. 70  3C -02 

-1  o2. 

• J 1 1 C - 0 4 

— 1 4 0 . 

-*.11 

350.0 

.7101-03 

127. 

•30 Jt-02 

1 46# 

. Jl lt-04 

- 1 4 0 • 

-12.0 

360.0 

.89it-Oi 

164. 

.2 /2t *04 

4 •»«. 

• Jl lt-04 

• 1 4 0 « 

-27.1 

160 


1 wC  *C J 


CONSTANT  «hO«  10.0  2*  *.00 


k <wiO) 

t (T-lT 

*> 

cl/) 

If'/ 

tm* 

MAONI T JO' 

HiADk  'l/E6> 

*A  j\ I T JDt 

►'-lASt  1 lit  b ) 

MAGN|  I J.Jt 

2*14  Dt  (UC  G) 

4-J*<*At.l/t3 

o.c 

.479C  -03 

-114. 

.2336-04 

-o  7 • 0 

.-i-Oc-03 

-37.8 

-26.  1 

10.0 

• 3*2c -0  3 

- 1 o2  • 

• 4 7 2 c.  - 0 2 

«*'♦  .4 

• 1 o 1 c - u 2 

-5  7.0 

-12.4 

20.0 

.95?r -03 

-1  d7. 

• 4 1 3c-C2 

-171. 

• 1236-02 

-lo.  7 

-1  3.2 

30.0 

• UOK-02 

-143. 

• 6U6r.-02 

-Id-. 

• 20  2k -'12 

4 . 1 o 

-9.  74 

* 0 . c 

• 93U-03 

-177. 

• i-Dt-Oc 

144. 

• 2 1 2c -02 

- 14.4 

-13.7 

50.0 

• 1 1 dc  -0  2 

1 o 1 • 

• 32OC-02 

1 3 1 • 

• 24  jc -0  2 

-4  o . 8 

-1  3. 7 

60.0 

•)94t-02 

-151  . 

• 3u 1 c-02 

-1  84  . 

• 26  '*C  “0  2 

10.4 

-13.  1 

70.0 

• 387k -02 

-127. 

. 4526.-02 

-125. 

• D- 2c —02 

4 7.3 

-7.44 

80.0 

•53ic-02 

- 1 1 9 . 

. 31 Dt-02 

-llM. 

• 7o0c- 02 

56.  7 

-6.13 

00.0 

• 53  it -0  2 

-117. 

0. 

04 .0 

• bo 2c-U2 

DtJ  • 4 

— D . 76 

100.0 

• 53  3k -0  2 

-119. 

• 3Hk-02 

6>.  3 

. 78Dc-U2 

56  .7 

-0.  1 1 

1 1C.0 

.3fc7t-02 

-127. 

• 4 5 2 k - *J  2 

31«  l 

• 54  ?c-u2 

4 7.3 

-7.45 

120.0 

. 199t-02 

- 1 5 1 • 

• JO] C-02 

2d  .7 

• 2o  4c  -f-  2 

10.  * 

-13.1 

130.0 

. 1 !-»*f-0  2 

161  • 

• 3c0c -02 

-48.9 

• 2 - 3 - 0 ? 

-**  b . <1 

-13.  7 

Uu.O 

• V 3 1 k - 0 3 

-177. 

• 34Dt-*V 

-3  7.7 

.21  **c  -o  2 

— 3 4 , 

-13.7 

150.0 

•14UC-C2 

-141. 

.6ODt-02 

2 6.1 

• 2o  2c-0  2 

4.10 

-4.7-# 

160.0 

•9*2t-J  3 

-157. 

• 4 1 jc -Or 

4.  JO 

• 1 2 3c -u 2 

-16.7 

-13.2 

170.0 

• 3*2c-0  3 

-16?. 

. 4 7 2c -02 

-98.1 

• 1 0 1 c -02 

-57 .0 

-12.4 

180.0 

• -0  3 

-1U. 

•233C-04 

43. u 

• 5HDc-0 J 

-37.9 

-25.  1 

190.0 

•342t-03 

-ib?. 

.47  ft-02 

OD.U 

• 1 0 1 C-02 

-67.1 

-12.  1 

20  0.0 

•V5ifc-u3 

-157. 

.41 3k -02 

-1  71  . 

• l 2 3 c - 0 2 

- 1 6.  * 

— 1 3 • ? 

2 1 0 . 0 

.I4it -02 

-1  4J. 

• 60  7k -02 

“ 1 D4  . 

.20  JC-02 

4.17 

-4.  7h 

220.0 

.91  ,c  - 7 3 

- 1 7 / . 

. j4*t  - JC 

144. 

• 21 1 c-02 

-34.1 

— i D • 4 

230. C 

. 1 V:  c * 0 2 

lbl. 

. j20c-G2  •’ 

131. 

• 2-ic-u? 

-4  7.9 

-1  3.7 

240.0 

. 1 9-> 

-151  . 

• ''49L-02 

- 1 D4  • 

• 2 * 2 C.  - 0 2 

lo.  7 

-1  3. 1 

250.0 

.3hcC-32" 

•-*4  srf'i 

• 4DAC-02 

-126. 

• 54  Dc -u2 

4 7.2 

- Cl  • 0 1 

260.0 

•532t -02 

-114. 

• 31 6C-02 

- 1 1 rt  • 

-■» 

1 

•i 

T 

• 

56.0 

-0.  1 8 

270.0 

.581c- 02 

-11  7. 

0. 

04  . u 

• ob  Dr.  - 0 2 

68.4 

-8.  7- 

230.0 

• 5 32t -0  2 

-ilw. 

• 3l  '3C  -02 

02.2 

. 7 7 4c -0  2 

66.0 

-0.16 

290.0 

.3f*Sc-02 

-127. 

• 4d1l-02 

DD.  1 

• D4  Dc-o2 

4 7.2 

-6.01 

300. 0 

• 19bk-02 

— 1 5 1 • 

• 2***r  -02 

2 5 • 5 

• 2c  2c-0 2 

1 u • 7 

-13.1 

310.0 

.1156.-02 

161  • 

. 320c -02 

-44.1 

.24  it  -02 

-4  7.0 

-1  3. 7 

320.  C 

• 930c -C  3 

-177. 

• 34  4 c — 0 2 

-3  ; .5 

.21 l k-0  2 

-34.3 

-iJ.“ 

330.? 

. Ulc-02 

-14  3. 

• DO  7c-02 

26.2 

• c o 3c -o  2 

4.17 

- 9 . 7 •> 

3**  0 . 0 

.95 3c -03 

— 1 D 7 . 

. 4 L iC  — 0 2 

t.'N 

• l 2 3 c — 0 2 

- £ 6 • ■* 

-13.2 

350.0 

. 362F.-03 

-162. 

.-.77l-02 

-98.0 

-5  7.1 

-12.  3 

360.0 

•«7*t-G3 

-1U. 

• 233C-0** 

-0  7.u 

• 82  3c -0  3 

-37.0 

-26.1 

162 


CONSTANT  («N3=  1 o,u  /=  13.U 


k.  <*iO> 

r 1 Tot T 

A) 

C < / > 

15 

TH* 

MAGM I T J.'*£ 

Hhasc  (0£r») 

M A iMIglt 

9 A jNl  1 Jf5 

2saS£  C|>tG) 

I / t3 

0.0 

• 1 49c-U l 

1/7. 

• 1d1c-0* 

99.9 

• 9r 0c-U2 

-j.22 

-1.0/ 

1C.  0 

.1*55-01 

1 79. 

• 285k -02 

-9  J . H 

• y 9 ?r  — «» 2 

-1.02 

- • 9*2 

?0.0 

• 1 *35  -0  1 

1 *»0. 

• ?5oc -«i2 

- / 1 .2 

• 9/*  45-02 

-1 .03 

-l.il 

30.0 

. :-ck -oi 

177. 

• 20bc.  ”0 c 

7 . C U 

• 9-  -r  -0  2 

-3.  yo 

- 1 • ••  9 

wO.O 

. 1 3Ml-m  i 

1 7 £ . 

• 3c4c-02 

A5.o 

• 0)35-0? 

-n  • j / 

-1  . /6 

50.0 

.131k -01 

r/i. 

• 2085-02 

JO.  3 

. 0 / 5c  “02 

-9.83 

-2.0  3 

80.0 

.l?9t-„ i 

i /*. 

• 1 79C-G2 

20  • 3 

• nr.  1 c -0  2 

-0  • 93 

-2. 2 3 

70.0 

. 1 2 •*£.  -u  1 

1 in. 

.lowt-o* 

- J.  3* 

• bo*. -02 

- J.  Jo 

-2  • 2y 

NO.O 

• 1 ?Vt-0  1 

-1*0. 

• *>23t-U3 

-2i».5 

• *l  l 5 “ 0 2 

-.42? 

-2.29 

90.0 

• l?9k -01 

-179. 

0. 

l 3*  • 

• 8r.?c  -o'* 

.453 

-2.2* 

100.0 

• 1 ?4£ -0 1 

- 1 gO  • 

• a2ot -03 

Iso. 

-.422 

-2.29 

nc.o 

• 1 ?9£ -C 1 

1 7«. 

.104t-02 

1 7*>. 

• Ms  9c -0  2 

-3  • Urj 

-2.29 

120.0 

• 1 ?9t -0 1 

IT*. 

• 1 / *5-02 

-1  sO  . 

• “8 1 5 -0  2 

-n. y > 

-2.2  3 

130.0 

• 1 3 1 c-0 1 

171, 

• 2n8i-02 

-1  44  . 

•«/St-u> 

-9.83 

-2.  uJ 

UO.O 

• 1 3*5  -U  1 

1 /?. 

• 324  t-02 

-U3. 

• *u  35  — 02 

— b . j / 

-1  . /fi 

150.0 

• 1*05-01 

1 77. 

• 205c -02 

-1  73. 

. y4 45-02 

-3.9o 

-1  .*9 

1 1>0  • 0 

.1-bb -01 

1 90  . 

• 2335-02 

109. 

#W*4r-0? 

-1.05 

-1.  1 l 

1 70.0 

.1*55-01 

17*. 

• 20-Jf -02 

0 9 .2 

. r. -0  2 

-1.92 

- . 902 

loC.  0 

. l*Vc.-«»l 

1 //. 

•I5lc -0* 

-*0  • i 

« 9«  3c -v/  2 

-3.22 

- i .u  7 

196.0 

• 1 

1 79. 

.2Vlt-02 

-90  .g 

-1.91 

- • 90O 

200.0 

.1*5£-'U 

in  J. 

.25/5-02 

-71.2 

. *o4t-W? 

- 1 . 0 1 

-i.  1 1 

210.0 

. 140= -01 

1 77. 

• 206r -02 

o.  o2 

. *<.  /c-02 

-J.  9j 

-1.9  9 

??i  .0 

• 1 3 4 r - j 1 

172. 

• 0205 -02 

35.5 

.904t-u2 

— r , 3 / 

-1  . /S 

230.0 

• l 3 1 f -01 

m. 

« 2555-U2 

Jo.b 

.s| ot -w 2 

-9.8*> 

-?.t‘  4 

?-o.O 

• 1 ?9t -o 1 

17*. 

•1 7*c-C2 

20.5 

.*fclt-*>2 

-0,9/ 

-2.23 

250.0 

• l?9t-wl 

1 /*. 

• 1 045-02 

-J.31 

• s5  tt -o2 

-3.1? 

-2.29 

280.0 

• l?9t-ol 

-180. 

. 32  45  — 0 J 

-2  j.i 

. nr»  1 1-*)2 

- . 434 

-2  • ?*• 

£70.0 

•l?9t-0l 

-17*. 

0 • 

loo. 

• Ft ?c -0  2 

.-?3 

-2  •2*' 

2*0.0 

• 1 ?9t -0 1 

-1*0. 

« 0245  — 0 J 

1 O0  • 

.-r 1 c-u2 

- . 93* 

-2.23 

290. C 

. l?9t-Cl 

I'M. 

. i 0 45 -0  2 

: 77. 

• 3 s i 5 - ? 

-3.1? 

— 2 • 2 4 

300.0 

.l?9c-01 

1 7«»  • 

• 1 7 *c -02 

-IsO. 

• 1*  1 5 -*»2 

-8.9/ 

-2.2  4 

310.0 

•1315-01 

17J  . 

•2035" 0 2 

-1  44. 

• 0 / 35-0  2 

-y  • bo 

-2.-4 

320.0 

.1  34k. -01 

1 72. 

. ,4c  oi: -*.2 

-144. 

• 9 * * c - 0 2 

— e • j / 

-1  . /3 

330. 0 

.1*05-01 

17/. 

• 20  oc  — 0 2 

-1/3. 

• **«.  f5-*2 

-3.93 

-1.-9 

J4C  .0 

#]*5c-01 

• 25  /:-0f 

1 U9. 

. ■»  T*  4 5 - U ? 

-l.U  J 

-i.il 

350.0 

• 1 -3C - ) 1 

1 7y  . 

• 2915-02 

*-.4 

. *-*  25  -'*2 

- i • **  1 

- . 9O0 

35  0.0 

. i*9t-01 

177. 

• l5lt-0*» 

9*.S 

• 9-or -w? 

-3.22 

- 1 . 0 7 

164 


CONSTANT  hMO*  10.0  /«  iJ.O 


1 1 w -*o> 

1 1 T»1cT  A ) 

Cl/) 

l8-r»A  1 N 

THs 

MAl»N  I T jL)  £ 

PriAbE  (OEft) 

mAjMF  jOc 

P*A->r 

’•ijM  I J.*r 

^3A3t  ( l>LO  ) 

41  ! cr  3 

0.0 

• lMt-01 

al . 1 

• it  2c-«'* 

-23.3 

- 1 1 8. 

-1.02 

10.0 

• 1 6 1 £ -0 1 

62.1 

• 2 u. k - 0 2 

143. 

• »U  Jt  - V2 

-ii  7. 

-•*»31 

20. c 

• lfcOc-O 1 

63.7 

.2*3 t-o2 

1 81. 

• hi.  Vc  “v8 

-1  lo. 

- • *39 

30.0 

.15‘t-Oi 

63.2 

. 1 32t“02 

-172. 

• ( * 3 c - «i  2 

-117. 

-1.22 

* , 0 

. 150t-'Jl 

60.4 

• 1 eOc -02 

-I0w. 

. 7 3 S k - u 2 

— 1 1 9 . 

-1.3  7 

so.o 

. Uvt-01 

3/.  2 

• 20  *h-02 

-63.1 

• 724C-02 

-122. 

-i  .84 

60. C 

. l*0E-0i 

33.3 

• l«2t.-C2 

- O V . 8 

• 7 0 3 c - 0 2 

-12*. 

- 2 . 1 .1 

70.0 

.133E-01 

33.2 

. 12  3t-02 

“33.9 

• 692c -u2 

-12*. 

-2.2h 

80.0 

. 1 lac-Ol 

33.7 

• 39 1 C-C  3 

- 9 J • 2 

•6i7c-u2 

-1  2*  . 

-2.38 

9o  .0 

.1372-01 

66.0 

0. 

04.2 

• h r.  S C - 0 2 

-123. 

-8  • .?* 

100.0 

. 1 3tJ-  -01 

33.7 

#39l£-03 

09. rt 

• t.r  7c  - 0 2 

-12*  . 

-2.36 

110.0 

.1382-01 

33.2 

.l2i£-02 

9 J.  1 

• 6 * 2c  “ J 2 

-1  2*. 

-2.2* 

120.0 

. l*0c-01 

33.3 

. lrt2t-02 

*3  • 2 

. 7 J 3i  -u2 

-12*. 

-2.13 

130.0 

.l**c-01 

37.2 

. 2o4t-Q2 

9 1 • 9 

• 72  4c.  -0  2 

-122. 

- 1 . * * 

1*0.0 

. 180E-01 

60.* 

. 1 6 0 c.  — 0 2 

71.2 

. 7S8_-  12 

-119. 

-1.37 

130.0 

.1S3C-U1 

63.2 

• 1 82c -02 

».2  7 

• 7 *3fc-U2 

-117. 

-1.22 

160.0 

. >ufc-oi 

63.7 

. 2*  3C.-02 

-23.2 

•6u*c-o2 

-1  16. 

-.934 

17C.0 

. 1612.-01 

62.1 

•2U4L-02 

-34.1 

. * ( > : - j 2 

-117. 

-.931 

1-U. 0 

. 16  If. -01 

61.1 

. 1 22c  -9-. 

l 33. 

• r.  j 3'  -u2 

-1  19. 

- 1 . 02 

1*50.6 

. IMk-Ol 

62.1 

• 2 w 7 c - 0 2 

Un. 

. 80  3s -0  2 

-117. 

- • 930 

200. 0 

. 1 60£ -0 1 

63.7 

• 24  3C-02 

168. 

• 80*C  - •>  2 

-1  1 6. 

- • 9 3 * 

210. C 

• 1 hot-0  1 

63.2 

• i8vr. -0  2 

-172. 

• / r»  3c.  -W2 

-11^. 

-i  .22 

220.0 

. ISOt-Ol 

80  .* 

. 1 o J r.  - u 2 

— 1 ti  * • 

. That -.2 

-1  i*. 

-.  .37 

230.0 

•144E-01 

37.2 

• 204C-02 

-63.2 

• 72  4c -w2 

- 1 22. 

-1 .09 

2*0.0 

. l*Ct-01 

38.3 

• 1 rt2t-02 

-6*  .H 

• 7 0 3 1 - C 2 

- 1 2 * • 

-2.1-3 

260.0 

•13*1-01 

68.1 

. l2it-02 

-6  6.3 

• 6*  -o2 

- 1 2*  • 

-2.29 

^ oC  . 0 

. 13*t-01 

33.7 

• 3*»2t  -03 

-90 .1 

• 6M  7t-o2 

-124. 

-2.53 

270.0 

. 137t-ol 

30.0 

0. 

03.3 

• r."  v.  - 92 

-1  23. 

-2.33 

2 .4  0 « 0 

• 1 3st-ul 

33.7 

. 3*i2c-0  3 

39,9 

• 3o7c  — *>2 

“12*. 

-2. 3 h 

290.0 

• 1 3bc -0 1 

33. 1 

• i 2 ic  — 0 2 

93.2 

• 69>r.-*i2 

-1  2*  • 

-2.29 

30o  . U 

• 1 *0E -0  1 

33.3 

• 1 r 2c. -02 

93.2 

• 7 j 3c  -*»c 

- i f * • 

-8.il 

310.0 

. 1 **£-0 1 

of  .2 

. ''0-C-C2 

9l  .3 

. 7 2 '♦  c - 9 2 

-122. 

- 1 . * * 

320.0 

.1SG£-01 

60.4 

•loJk-02 

70.9 

• 7 a at -c  2 

-1  1 9. 

-i  .*7 

33C.C 

• 158E-’j 1 

63.2 

• 1 3*t-02 

6.U1 

. / * at 2 

-i  1 h. 

-1 .22 

3*0.0 

. lftuE-,1 

63.7 

• 2*  3C-02 

-23.  1 

. 3 0 4 1 — J 2 

-1  ih. 

- • 936 

350.0 

• 1ME-01 

62.1 

• 20  tt~Cc 

-3*  . 0 

•T3  0 Jc  -u  2 

-1  i 7. 

- • 93'1 

3n0.0 

.ifciE-o: 

61.1 

• 1 22r.  -u* 

-23.4 

. 30  Dc-'*2 

•l»o. 

- 1 a 92 

166 
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GExacS  SOdWOUIlNE  TIxInu  iTATISTICs  (IN  btCO^i) 


times 

TOTAL  TIML- 

HEM CEM  UE 

PJUTINE 

CALLED 

IN  ROUTINE 

£h CAP  TI^c 

9CHRM 

326*1 

26.10 

21 .7>i 

T/.cFlO 

32©dl 

?3.et* 

i 9 # * i j 

\t  *FlD 

9*97 

1 6.SS 

ls.4v* 

paGPlT 

3G6i 

13.  s? 

11.260 

FL JOUT 

9121 

9.4  7 

7.  *0© 

PA3PLT 

4 

2.50 

2.  tns 

P Au»*LT 

4 

2.39 

2. 000 

P«TSYH 

192s 

1.65 

1.374 

F AbL  C4 

49 

1.41 

1.1*4 

SVMSCM 

1090 

l.->5 

1 . 126 

/! jSET 

* 

i • 3*> 

1.126 

1 1 JSfc  T 

1 

1.24 

1 • v J4 

JEC'WP 

loso 

1.23 

2.427 

Ft  JQPV 

34  41 

1.1* 

.*91 

N£*FLD 

74 

1.11 

.*24 

MF  nFlO 

74 

1.07 

.6*0 

CAtfC 

1601 

.3* 

.71* 

NT^^tT 

1*40 

• H9 

. 706 

vtm^lt 

1600 

.61 

• 047 

F /.kFLO 

74 

• o* 

• ©©S 

FAuFlD 

74 

.65 

• ©'•4 

rth'TF  :l 

697 

• o> 

• 6 1 6 

JNCSUM 

30  4 1 

• 63 

• S(.4 

JP.CSn/M 

3040 

.5*1 

.464 

PL  1ST 

3 

.67 

. 4 7h 

5ACSUH 

162 

.49 

.412 

SCAM 

37 

• 41 

• 340 

©E JCCN 

1 6 64 

• 3 3 

.27© 

floout 

2 

.33 

.2©  7 

fL  DC  jT 

2 

• 30 

.2  6b 

ExCCPV 

1>2 

• 2* 

• c*£ 

POST  IP 

49 

• 2-< 

TbKX.’.T 

-.2 

.23 

. i *4 

©GlVOC 

139 

.23 

• 1*0 

.1/00*  V 

103* 

. 2P 

. 1 si 

wmCOmS 

2 

.20 

• i 54 

SYMOt F 

11 

• 14 

. 1 is 

3EC0*° 

l 

.12 

.1*3 

o*\f :l 

37 

• IP 

• *02 

SY  *l,»0 

37 

. ;p 

• i *2 

FAfcLt-4 

4<J 

• ip 

StCO-Yp 

1 

• n 

• 0*1 

FAHL04 

96 

• li 

.0*9 

P-tSCN 

S3a 

.10 

• VO  J 

Floosv 

2 

.10 

• l/rt  1 

FLUiJW  V 

2 

.0* 

• v 7© 

V0v? ! L 

61 

• 04 

.0/3 

SOwVOC. 

10 

a C 6 

• w 7 1» 

jE -YuO 

117 

• Os 

• w 6© 

sc  _tv*v 

2 

• us 

• 4 • 4 

PAkSE 

27 

• OS 

SOcOh V 

1 

.35 

. 0 4 I 

3'4IP«S 

6 

• 05 

• 04  U 

»*TCn* 

2 

• 04 

• 0 35 

POSTPR 

1H 

• 04 

. * J i 

SOL VOC 

4 

• 34 

. 0 Jw 

CAeC 

2 

• 0.3 

. v2 © 

FsoakG 

94 

.0  J 

• Oct 

6 

.0  < 

- 7 

168 


GEMACS  is  written  in  American  Standard  FORTRAN,  X 3 - 9" 1 966 . It  is 
capable  of  executing  with  no  library  subroutines  other  than  those 
required  by  the  ANSI  standard.  The  code  requires  approximately  70K 
decimal  core  locations  (depending  on  machine  and  load  method  utilized) 
and  may  be  segmented  or  overlayea.  As  released,  neither  of  these  fea- 
tures is  utilized  due  to  incompatibility  with  various  machines. 


1 . I/O  Requirements 

GEMACS  makes  extensive  use  of  peripheral  file  storage  and  must 
have  several  FORTRAN  logical  units  available.  These  are  listed  below 
with  the  internal  variable  name,  the  logical  unit  number,  and  the  file 


usage  given.  Data  are  stored  starting  on  logical  unit  iOSYMB  up  to  and 
including  the  logical  unit  number  specified  on  the  NUMFIL  input.  The 
user  is  responsible  for  assuring  that  GEMACS  can  access  these  files.  If 
more  files  are  required  than  made  available,  a fatal  error  will  occur 
and  an  attempt  will  be  made  to  write  a checkpoint. 


TABLE  3.  GEMACS  LOGICAL  UNITS 


INTERNAL 

DESIGNATOR 

LOGICAL  UNIT 
NUMBER 

USE 

I0SCR1 

1 

Scratch  File 

I0SCR2 

2 

Scratch  File 

LUTASK 

5 

Card  Image  Input 

LUPRNT 

6 

Formatted  Output 

IOC KPT 

7 

Checkpoint  File  (Binary) 

IOSYMB 

8 

Data  Storage  (Binary) 

LUNIT 

9 

Data  Storage  (Binary) 

LUNIT 

10 

Data  Storage  (Binary) 

* 


If  a logical  unit  designator  is  used  on  any  command,  it  should  be  units 
3 or  4,  or  greater  than  that  specified  on  the  NUMFIL  entry.  This  will 
insure  that  the  unit  is  not  in  use  when  required.  As  a practical  con- 
sideration, the  following  types  of  data  sets  will  require  the  specified 
number  of  units. 

TABLE  4.  DATA  SET  LOGICAL  UNIT  REQUIREMENTS 

DATA  SET  NUMBER  OF 

TYPE  UNITS 


GEOMETRY  I 

EXCITATION  1 

IMPEDANCE  1 

BANDED  | 

DECOMPOSED  2 

FIELD  I 

Execution  of  a PURGE  command  releases  the  logical  unit  used 
for  the  specified  data  set  for  other  use. 


2. 


Internal  Storage  Requirements 

There  are  five  primary  arrays  used  by  GEMACS  for  problem 
execution.  All  arrays  are  stored  in  common  blocks  and  have  internal 
variables  specifying  their  size. 

Geometry  data  are  affected  by  the  SEGTBL,  PTTBLE,  IDEFIN,  and 
CVAL  arrays. 

SEGTBL  is  used  to  store  the  segment  data  and  must  be  dimen- 
sioned as  an  NPRSEG  by  MAXSEG  array,  where  MAXSEG  is  the  maximum  largest 
numbered  segment.  As  presently  dimensional,  GEMACS  can  accommodate  up 
to  500  segments. 

PTTBLE  is  used  to  store  point  data  and  must  be  dimensioned  as 
an  MAXPTS  by  NPRPT  array.  MAXPTS  is  the  maximum  number  of  points  to  be 
stored,  which  is  presently  dimensioned  for  100  points. 

IDEFIN  is  used  to  store  the  data  for  defined  elements  and  must 
be  dimensioned  as  an  MAXDEF  by  NPRDEF  array.  MAXDEF  is  the  maximum 
number  of  defined  elements  allowed,  which  is  presently  100  elements. 

CVAL  is  used  to  store  coordinate  system  data  and  must  be 
dimensioned  as  an  MAXCSY  by  6 array.  MAXCSY  is  the  maximum  number  of 
coordinate  systems  allowed,  now  set  to  10.  CVAL  is  equivalent  to  CX  in 
the  CSYSTM  common  block. 

The  array  TEMP  is  stored  in  common  TEMPO!  and  must  be  of 
dimension  NTEMPS,  presently  set  to  5000.  This  array  is  used  throughout 
the  code  for  internal  computation  and  intermediate  storage.  At  present, 
TEMP  must  be  capable  of  containing  at  least  three  columns  of  the  impedance 
matrix.  As  this  implies,  NTEMPS  > 6 X MAXSEG  since  the  matrix  is  complex. 

All  array  parameters  are  stored  in  the  same  common  block  as 
the  array  and  are  preset  in  block  data  subroutine  BLKDAT. 
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3.  System  Library  Routines 


No  system  library  routines  are  required;  however,  some  are 
desirable.  The  most  important  is  a routine  to  return  the  elapsed  CP 
time  in  minutes.  This  routine  is  called  from  subroutine  TICHEK  and  must 
be  available  for  using  the  CHKPNT  command  with  the  CP  INC  parameter. 

Auxiliary  routines  to  return  the  date  and  time  are  called  by 
subroutine  SYSRTN.  In  the  absence  of  these  routines,  zeros  should  be 
returned  to  the  calling  routine. 

The  file  status  function  routine  LUSTAT  is  called  after  each  read 
to  detect  an  end  of  file.  If  a library  function  is  available  to  deter- 
mine this  information,  it  should  be  called  from  this  routine.  If  none 
is  available,  simply  return  a zero  value  for  the  function. 


I 


METRIC  SYSTEM 


BASE  UNITS: 

Quantity 

length 

mats 

time 

electric  current 
thermodynamic  temperature 
amount  of  aubetance 
luminous  intensity 

SUPPLEMENTARY  UNITS: 
plane  angle 
solid  angle 

DERIVED  UNITS: 
Acceleration 

activity  (of  a radioactive  source) 

angular  acceleration 

angular  velocity 

area 

density 

electric  capacitance 
electrical  conductance 
electric  field  strength 
electric  inductance 
electric  potential  difference 
electric  resistance 
electromotive  force 
energy 
entropy 
force 

frequency 
illuminance 
luminance 
luminous  flux 
magnetic  field  strength 
magnetic  flux 
magnetic  flux  density 
magnetomotive  force 
power 
pressure 

quantity  of  electricity 
quantity  of  heat 
radiant  intensity 
specific  heat 
stress 

thermal  conductivity 
velocity 

viscosity,  dynamic 

viscosity,  kinematic 

voltage 

volume 

wavenumber 

work 


Unit 


metre 

kilogram 

second 

ampere 

kelvin 

mole 

candela 


radian 

steradian 


metre  per  second  squared 

disintegration  per  second 

radian  per  second  squared 

radian  per  second 

square  metre 

kilogram  per  cubic  metre 

farad 

siemens 

volt  per  metre 

henry 

volt 

ohm 

volt 

joule 

joule  per  kelvin 

newton 

hertz 

lux 

candela  per  square  metre 
lumen 

ampere  per  metre 

weber 

tesla 

ampere 

watt 

pascal 

coulomb 

joule 

watt  per  steradian 

joule  per  kilogram-kelvin 

pascal 

watt  per  metre-kelvin 
metre  per  second 
pascal-second 
square  metre  per  second 
volt 

cubic  metre 
reciprocal  metre 
joule 


SI  PREFIXES: 


SI  Symbol 


Formula 


m 

kg 


A 

K 


mol 

cd 

rad 

sr 

m/s 

(disintegration  )/s 
rad  la 

rad/s 

m 

kg/m 

F 

A-s/V 

S 

A/V 

V/m 

H 

V-s/A 

V 

W/A 

V/A 

V 

W/A 

1 

N-m 

j/K 

N 

kg-m/s 

Hz 

(cycle  )/s 

lx 

lm/m 

cd/m 

Im 

cd-sr 

A/m 

Wb 

V-s 

T 

Wb/tn 

A 

W 

V» 

Pa 

N/m 

C 

A-s 

1 

N-m 

W/sr 

l/kg-K 

Pa 

N/m 

W/m-K 

m/s 

Pa-s 

mis 

V 

W/A 

... 

m 

I 

(wave)/m 

N-m 

Multiplication  Factors 

Prefix 

SI  Syi 

1 000  000  IKK)  000  - in'1 

lora 

T 

1 000  000  000  = 10’ 

gig* 

C 

1 000  000  - it)* 

mega 

M 

1 000  = 10' 

kilo 

k 

too  - to1 

heclo* 

h 

10  - to* 

delta* 

da 

0.1  - 10-' 

deci* 

d 

001  - 10-> 

centl* 

c 

0 001  - 10-' 

milli 

m 

0 000  001  --  10- * 

micro 

ps 

0.000  000  001  - 10- ’ 

nano 

n 

0 000  000  000  001  * 10"  11 

pile 

t) 

0.000  000  000  ()00  001  Mr" 

lemtn 

} 

0.000  000  000  IKK)  IKK)  001  1 0 * '• 

alto 

11 

' To  be  avoided  where  possible 


